88 
. 
S38388328388838 


N 10 
**F ILE**1D**SORCOLUTI tt 
SSSSSSSS 000000 RRRRRRRR cccccccc 000000 LL UU UU TTTTTTTTTT IIIT! : 
SSSSSSSS 000000 RRRRRRRR ceccccce 000000 LL UU UU TTTTITTTTIT II1111 : 
S$ 00 0O RR RR CC 00 oO LL UU UU TT Il : 
$$ 00 0O RR RR CC 00 OO LL UU UU TT Il : 
SS 00 0O RR RR CC 00 oO LL UU UU TT Il . 
SS 00 0O RR Re CC 00 oO LL UU UU TT Il : 
SSSSSS 00 00 RRRRRRRR CC 00 oO LL UU UU TT Il ; 
SSSSSS 00 O00 RRRRRRRR cc 00 0O LL UU UU TT II : 
SS 00 00 RR RR cc 00 OO LL UU UU TT I] : 
S$ 00 00 RR RR CC 00 oO LL UU UU TT Il ; 
$$ 00 00 RR RR cc 00 oO LL UU UU TT I] cove : 
SS 00 0O RR RR cc 00 oO LL UU UU TT Il eeee ; 
SSSSSSSS 000000 RR RR cccccccc 000000 LLELLLLLLLL 9 UUUUUUUUUU TT I11i11 cece : 
SSSSSSSS 000000 RR RR ccccccce 000000 LLLLLLLLLL UUUUUUUUUU TT IIIIII eeee 
LL IIIIII SSSSSSSS 
LL WII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL Il SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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5 1 001 MODULE COLLSUTILITIES( 3 
: ¢ Os pent = *V04=0uu ' ' File: SORCOLUTI.B32 Edit: PDG3014 : 
Pf BRT pea : 
: § Bobs | "Speanieber eer eigen sete opktaganesae escapee serene tre : 
; '® ® 3 
; 8 Bens 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 > 3 
; 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 3 
3 19 Baie : it ALL RIGHTS RESERVED. * 3 
; : * 3 
3 i Boi¢ 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
ee 0015 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi Conse AND WITH THE * $ 
a. 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
a 0015 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® : 
3 i? Baie ! . TRANSFERRED. * 3 
; ! * s 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * é 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $3 Ba53 : os CORPORATION. * 3 
° . ® é 
3 $¢ $038 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
: 36 0096 | is : 
: e7 it 1 PITITITILI LILI LLL LITLE LiLiLiLi tli lili tilitiiiiiitiiiitiiil : 
; «6 0028 1! 3 
; 9 94 1 3 
a bos) i 
: 32 003¢ 1! FACILITY: VAX=11 SORT/MERGE : 
: : O08 : PDP-11 SORT/MERGE : 
: 35 0035 | ABSTRACT: : 
; 37 0037 1! This module contains routines that process a user-defined collating : 
; 3 Boas : sequence. : 
i 40 0040 1 | ENVIRONMENT: VAX/VMS user mode : 
i 4@ 0042 1 | AUTHOR: Peter D Gilbert, CREATION DATE: 20-Jan-1983 : 
; 44 0044 | MODIFIED BY: ; 
: 46 0046 1 i 103-001 ginal 

; «647 047 1! 108-002 age a a tenpor ar fix to get a reasonable pad character if 

; | «648 9k 1! aracker is ignored. PDG 26-Jan-1983 

; 69 049 1! T03-003 Support spares pad chara pores et ADJ to zero if there are 

,; » 0050 1! aracters. PDG e 1983 

, SI 0051 1! 103- O08 A d rer Sr OLD. PDG 31-Jan- 

3 26 4 1! 5 Define CODE and PLIT ny Ah 11-Feb-1983 

ae Boe 1! 3 . Change the interface to SORSSCOLLATE x. PDG 7-Mar-1983 

3 i Bpee ' T03-00 peae .. | " table stuff. Changes Tor PDP-11 senoakentt tie. | 

: 56 0056 1} Chen ~ 4" Lif ng the upper table, PDG 12-Apr-1983 

3 7 §089 1! 13. 68 Store late i n' RES they epee Test cS REVERSE) in COLLSRESULT. | 


— sss 
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COLLSUTILITIES 1§- Se 4 :0 AX=1 Bites -32 V4.0-7 Page 2 Cl 
vourobo 14- aed 32 9}: 98: 8 SORT32. SRC} SORCOLUTI. 3 2;1 . (1) Vi 
3 8 058 1! The ORDER arenerer to TIE_BREAK is now requir Changed 
3 9 059 1! value of C REG for B ESR PDG 1 15-Ap ae 1583" e 
; © bey 1! T03- 19 Defined rie “statuses for Bliss-11 20e Poy Apr=1983 
: 61 61 1: 103-011 Add routine headers. PDG 5-Jul-1983 
3 6¢ O06 1! 703-012 peeggete Large, structures in the work area, not on the stack. 
; 6 065 1! PDG 25-Apr-1 
; 64 064 1! T03-013 Merge changes from Sort-11 and grt-se versions. 19-Sep-1983 
3; 60 6S 6065 1! T03-014 Allocate on the stack for Sort- Speci fy a comparison 
:; &* 0066 1! routine that togan be used after = “initial CMPC for Sort-32 
3 of 4984 : } PDG 14-0ct-1 
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COLLSUTILITIES 16-Sep-1984 01:06:0 AX-11 Bliss-32 V4.0-74 Page 3) 
v04-000 1228601382 93:98:26 {SORT 2.SRCJSORCOLUTI .852;1 (2) 
; 0069 1 !++ H 
Tee $9 4 $ 
; ue 071 1 ! OVERVIEW: ; 
B34 2 Of¢ 1} : 
; $f 1 ! The routines must be called in the sotto ire tog : 
. ae 74 «1! NIT C BASE J C NEXT {| MODIFY | FOLD J... RESULT : 
; O75 1! The routines PAD, TIE_BREAK and UPPER Bey be optionally called any ’ 
; 4 858 } time after the INIT and before the RESULT. : 
Cee | 0078 1! In all of these routines, the user passes a two element vector ; 
; 0079 1! Fontetaing the Length/address of a work area these routines can use. ; 
3 4 4 o 1! The call to RESULT returns the length that is needed to store the 3 
: ¢ 081 1! compressed version of the area. The user can then call the routine $ 
; § 00 ¢ .@ whose address is stored at the beginning of the area. This routine is : 
; «684 4 e passed the lengths/address of the strings, and returns: 3 
3; 689 084 1! 1 if String! < String 3 
>; 686 0085 1! 0 if String! = String : 
3 sf Bae } +4 if String! > String : 
; oF 0088 1! ALL characters are passed to these routines as a word length followed : 
;: 0089 1! 24 zero, one or two characters (4 bytes max). 3 
; Wi 0090 1! The routine INIT avaply initializes all characters as ignored, the pad : 
; 4 44 ; character as the null character, and no tie-breaking. : 
5 0095 1! BASE defines a base collating sequence (via a 256 byte table). F 
; 0094 1! ALL 256 ig me characters are given one-byte collating values, 3 
3 38 9 } } taken from the table. : 
; 0097 1! NEXT specifies a character that is to get a single-byte collating value 3 
; 100 Bhes : } that collates larger than any other currently defined collating value. : 
3 Ol 0100 1! OTHERS causes NEXT to be called for all currently ignored single-byte F 
3 Ie bi34 : characters (similar to COBOL-style definitions). : 
> 104 $108 1! MODIFY defines a character to collate just less than, equal to, or just F 
3s 105 0104 1! greater than the (0,1,or 2 byte) collating value of a (0,1,or é byte) 3 
3 198 Bio2 ' character string. : 
: 108 0107 1! FOLD causes all lower case letters to be given the collating values of : 
; 109 0108 1! their upper case equivalents. If a double character that contain no F 
s 10 0109 1! lower case letters is defined, then lower case and mixed case double : 
s FT 0110 1! characters are defined to collate equal to this double character. : 
3 Ne 0111 71! For example, 3 
; (9 BIi¢ 1! This causes these definitions ; 
: «6114 0115 1! = F 
3 115 0114 1 ! “—30*" ""$q''=''$da'' $ 
; 6116 b112 1! 'd$"' none : 
WE bhi 116 1! ‘$d"' none 3 
: #118 ji ae Ee ‘xy’ none F 
3 6119 18 67! Yee none 3 
: 120 119 1 ' a ee ey a Ke Xy= xy" g 
: 121 0120 1! 
3 138 a 1 ! PAD defines the (single byte) pad character. 
: 124 5} 5 , UPPER specifies a simple (i.e., Like BASE), pecans collating 
: 125 0124 1! sequence that should be applied if the primary collating sequence 
: 126 0125 1! collates two strings as equal. 
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TIE_BREAK specifies that, if the primary ong secondary raed de, 
sequences collate the strings as equal, a final gonpertpen should be 
She obrlen compares the unsigned binary values of t 

ngs. 


11 
rhage 
14-Se 


ovo 


e characters in 


The pieneee te the comparison routine is: 


(for en): 
JSB( 
REGISTER=0, ! Length of String! 
REGISTER=1, ! Address of string! 
REGISTER=2, ! Length of String 
REGISTER=5, ! Address of String2 
REGISTER=5; ! Address of table 
REGISTER=0) : i Result of the comparison (-1, 0, +1) 
seats bad Bey 5) 
PRESERVE (9,10) 
NOTUSED(6,7,8,11) 

vral * Withee 

And the condition codes reflect the setting of RO. 

IMPLEMENTATION: 


During the definition of the collating sequence, collating values are 
represented by two word values: <x,y>. 

<0,0> indicates an ignored character 

<x,0> indicates a aoprenverue collating value 

<x,y> indicates a double-value collating value 
The collating values for single characters are stored in a 256 element 
array. Double characters and their collating values are stored in 
a sequential List at the end of the other tables. (The UPPER table 
is always left in byte form). 


The succinct tables generated by RESULT have the form: 
A byte of flags for tie-break and upper 
RESSREVERSE A byte of flags to reverse sense of tie-break CMPC 
RESSPAD 4 byre for the pad character 
RESSPTAB Ae 


6 byte table, with a value of zero indicating 
that the STAB table inust be consulted. 
RESSUPPER A 256 byte table. 
RESS$STAB A list of entries for double characters and characters 
with double collating values. If a character with a 
value of 0 in PTAB is not found in this table, it is 


gnored. 

The fleas within TB are: : ; 
TBSNOTB %B8'0100' Don't do tie-breaking (the Z-bit) 
TBSNOUPPER %8'0010' Don't use upper table (the V-bit) 

The {logs within REVERSE are: . 
TBSREVERSE %B8'0001' Reverse tie-break CMPC (the C-bit) 


An entry in STAB is four bytes in Length: 
<ch0,chi,cy0,cv1> ; 
The ie Level together form a single or double character. 
The cv0,cvl together form a single or double collating value, 
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COLLSUTILITIES 16-Sep-1984 01:06:0 AX-11 Bliss-32 V4.0-74 
V “600 13280071386 93598:25 SORTS2 SRE SORCOLUTI .852;1 
; 184 83 7} with special forms mentioned above. | : 
; #185 184 1! These entries are ordered in groups with equet chO values, in order : 
; 138 : 5 ! } ee chO values. The groups are followed by two ‘‘trailer’’ : 
; : entries: ; 
° 188 1 : 1 : CEN °ET* LBA EE  sesveccest : 
; 189 188 1! <2X'00",2X'00",...,.-4? ; 
> 190 0189 1! Each group has the form: : 
; 191 0190 1! <x, EX'FF', collating value of x> ne of these ‘ 
; 136 813) 1 <x, y  , collating value of xy> or more, ordered by y ‘ 
>; 194 0198 74 The choice of this representation is succinct and allows for efficient : 
; 133 B13¢ ! grocess ing. See the support routines SORSCOLLATE_0, 1 and 2 for more ; 
by . eta Ss. e 
3 197 8138 1! : 
; 198 0197 1 !-- : 
; 199 0198 1 LIBRARY ‘'SYSSLIBRARY:XPORT'; ‘ 
: 200 0199 1 SIF XBLISS(BLISS32) XTHEN : 
; $03 0200 1 PSECT : 
; O¢ 0201 1 CODE= SOR$RO_CODE (PIC, SHARE), ° 
; $0? bs0¢ : eft PLIT= SORSRO_CODE(PIC,SHARE); ° 
; 205 0204 1 : 
; 206 0205 1 LITERAL : 
; oom Bsne } eget -REG = IF XBLISS(BLISS32) XZTHEN 10 XELSE 3 2FI; ; 
; 209 0208 1 LNK_CALL = IF XBLISS(BLISS32) XTHEN CALL ZELSE JSR ZFI 2%, ; 
; 519 t44 i mo = IF XBLISS(BLISS32) XTHEN JSB ELSE JSR 2FI 2%; : 
: sig $514 1 CS_LINK_O = LNK_SUBR: GLOBAL(CS=CS_K_REG), ; 
3 6a) 02 § 1 CS_CALL_O = LNK_CALL: GLOBAL(CS=CS_K_ REG) : 
3; 214 021 1 CS_LINK_1 = LNK_SUBR(REGISTER=1): GLOBAL (€S=CS_K_REG) : 
; 319 0216 CS"LINK-2 = LNK-SUBR(REGISTER=1, REGISTER=2): GLOBAL (CS=CS_K_REG); ; 
s alr 8S 6 1 FORWARD ROUTINE ‘ 
; LOOKUP: -LINK_1, ' Look up a double character ; 

218 0217 1 D_LOOKUP CS_LINK_1 ! Look double ch : 
; 219 0218 1 D_NEW: CS_LINK_1, ! Create a new apqeneery table entry : 
3 20 0219 1 GIVE COLL: CS -LINK_2, ! Assign a collating value to a character : 
: 221 0220 1 DO_BOMP: CS_LINK_1, ! Increase coll ering values : 
; 3 2 0221 1 COCLSINIT, ! Initialize collat np sequence : 
: 3 02 § 1 COLLSBASE, : Define the base collating sequence : 
; 224 8S } COLLS$NEXT : Define the next character ‘ 
; § 5 0224 1!  COLLSOTHERS, : Define undefined single characters : 
3 $ 0225 1 COLLSMODIFY, ! Make a modification ; 
; $$ 1 COLLSFOLD ! Fold uppers Leper case characters : 
> 228 1 COLLSTIE_BREAK, i Indicate tie-breaking | ; 
3 $9 0999 ! tae te indicate collating value of the pad character : 
; ‘ : er case comparison : 
S gol 02350 1 COLL_VALUE: CS_LINK#. : Gets the collating value of a character : 
; 3 0231 1 COMPRESS: CS"LINK~1, ' Compress the range of col lating values : 
; 2 § 1 COMPRESS _M: CS_LINK_O, ' Compress the tables and set attributes : 
; $e ? : COLLSRESOLT; ! Build the final tables | : 
: 236 5 1 | : 
3 7 03 § ' | Define the error statuses returned by these routines : 
: 239 0238 | KIF XBL 1SS(BLISS32) XTHEN | ; 
3; 240 9 1 | ; 

| 
| 
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1B-3¢ 1984 01:06:0 AX-11 Bliss-32 V4.0-74 
1 ~Sep-19 4 93:98:05 SORT 2.SRCISORCOLUTI.B 231 
enki LITERAL 
SOR$_COL_ADJ, 
SOR$_COL_CMPLX, 
SOR$_COL_CHAR 


SOR$S-COL-PAD,- 
SORS~COL- THREE; 


BIND 
Invalid ADJ parameter 


COLL$_AD = SOR$_COL_ADJ, : 
COLL$_CMPLX = SORS$_COL_CMPLX, : youn et ing sequence is too complex 
COLL$_CHAR = SORS$_COL_CHAR, ' Invalid character definition 
COLL$_PAD = SORS$_COL_PAD ! Invalid pad character 
COLL$_THREE = SORS$~COL THREE; ! Cannot define S5-byte collating values 
LITERAL 
TRUE = 1, 
FALSE = 0; 
ZELSE 


LIBRARY 'S11V3SRC:SMCOM'; 


LL$_AD = SOR$_SPCADJ, ! Invalid ADJ parameter 
COLLS_CMPLX = SORS$_WKAREA, ! Collating sequence is too complex 
COLL$_CHAR = SORS_SPCCHR, ! Invalid character definition 
COLL$_PAD = SOR$_SPCPAD Invalid pad character 


COLL$_ THREE ! Cannot define 3-byte collating values 


RFI 


Define the successful status returned by these routines 
Z1F NOT ZDECLARED(SS$_NORMAL) XTHEN LITERAL SS$_NORMAL = 1; %FI 


MACRO 
IF_ERROR_( X ) = ZIF %BLISS( BLISS16 ) ZTHEN IF X NEQ SS$_NORMAL 
ZELSE IF NOT X &FI 2; 
MACRO 
CS_SETUP(PARAM) = 
ZIF XNULL (PARAM) 
oc om REGISTER CS = CS_K_REG: REF CS_BLOCK 
GLOBAL wesraiye CS = CS_K_REG: REF CS_BLOCK; 
CS = .PARAML1 
ZF 3 
ZIF ZDECLARED(ZQUOTE ELIF ) XTHEN UNDECLARE ZQUOTE ELIF ; 2%FI 
Bie ano CLARED( SOUOTE BASE_) ZTHEN UNDECLARE ZQUOTE BASE_; FI 
ELIF= FUSE IF %, 
BASE_= o Oe 8. O Bs 


em ee ee ee a a a a a a ad a od = od 3 = = = 8 2 = 8 8 2 
@ 


MACRO 
MOVE_COLL_ALL_(X,Y) = 


COL UTILETICS 16-50-1984 93:06:08 AX-11 Bliss-32 V4.0-74 Page 7 


-Sep-1 SORT32.SRCJSORCOLUT! .B32;1 (2) 
: 98 M0297 1 BEGIN 
: 29 i 98 1 RIF XFIELDEXPAND(COLL_ALL,2) NEQ 0 
; 300 ™ 0299 1 XTHEN 
; 91 H 90 BBLOCKCX,COLL_ALL] = .BBLOCKCY,COLL_ALL); 
: 0 M 03 1 BBLOCK[X,COLL_CO] = -BBLOCKEY, COLL _¢O : 
: 304 ™ 0 1 BBLOCKEX,COLL“C1] = .BBLOCKLY.COLL~C1); 
i 306 m ORes 
: 307 08 1! 
: 309 1 i 
: 310 8 1 i z .Y 
: 311 0310 1: MELSE (CK) = .CY)s (X#2)=.0¥#2)) BFL 
; 1g 0311 1 LITERA 
; \; 8 \¢ ' K_CHARS = 256; ! Number of 1-byte characters 
: 315 0314 1 MACRO 
: 316 0315 1 XBYTE = XEXPAND $BITS(8) % 
> 317 0316 1 XWORD = %EXPAND $811$(16) {, 
: 318 0317 1 XLONG = XEXPAND $BITS(32) %, 
: 319 0318 1 XDESC = SUB_BLOCK(2) %, 
; 320 0319 1 XADDR = SADDRESS %; 
; 21 03 0 SSHOW (FIELDS) 
: 328 03 g 1 STRUCTURE 
: 324 0323 1 BBLOCKLO,P,S,E;BS=0) = CBS](BBLOCK+0)<P,S,E>; 


END %; 
CRO 
MOVE32_(X,Y) = 
ZIF %BLISS(BLISS32) 
ZTHEN X 
| 


COLLSUTILITIES 1E-Bep-1984 01:06:02 ARIE BLisg=52 y4.0-748, age | 


5 $ ¢ } } CHAR=BLOCK 

: 8 § 1! A char is an elementary data structure representing a single or double 
3 : character. 

; 1 § 1 $UNIT_FIELD 

3 ¢ 9 ! CRAR ReFIELDS z 

; 4 L 8 . CHAR_LEN= EXWORD] 

: XPRINT: C0,0, 16-0 (+%x'0") 

. Se L 0333 1 CHAR_CO= a 

; 1) bl (2,0,8 eg (+4x" 2") 

3 33 L 0334 1 CHAR_C1= CxBYTE 

3 nee int (3,0,8,0 teen: 3") 

3 ; 033? 1 SOVERLAY(CHAR_CO) 

; 8 L 0336 1 CHAR_CO01= fxg 

: XPRINT (2,0,16,0] Poe aexe24) 

5 $i 0337 1 SOVERLAY(O 9-9-0) 

: 340 L 0338 1 CHAR_ALL= XL ONG] 

3; SPRINT (0,0,32,0) (+%x'0") 

3; 341 0339 1 TES 

: 3% 0340 1 LITERAL CHAR_K SIZE=  $FIELD.SET_UNITS: ' Size in bytes 

> 34 0341 1 MACRO CHAR_BCOCK= BBLOCKECHAR_K_SIZE] FIELD(CHAR_FIELDS) 2%; 


pent 
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COLLT-BLOCK 


A coll is an tingevatue data structure representing a single, double or 
ares. 0-83 ign ing value. 
nored 


! 
' 
i 
i 
i 
i % > ngle collating value (x ne 0) 
<x,y> dou le collating value (x,y ne 0) 
SUNIT_FIELD 

COLL FIELDS = 


COLL_CO= 
C0,0, 16. » teeH0"D 


COLL_C1= 
[2,0 ns 63" Pyare") 
SOVERLAY (0.0 .0,0,0) 


Mie 90,58 h connor) 


T 
LITERAL COLL K_SIZE= $FIELD_SET_UNITS ' Size in bytes 
MACRO COLL_BCOCK= BBLOCKECOLE_K “Siie} FIELD(COLL _FIELDS) %; 
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COL UTILITIES 


3 re $6 } CS-BLOCK 

: $8 rH } This data structure holds pertinent information between calls. 

: 368 64 1 SUNIT _FIEL 

2 ee es ak 

: ort L O86? 1 CSSiZE= E09 conao , | Size of this block 

; N 0, ; 

; oe L 0368 1 CS_CURR S1tEe mets stoma" ! Current size of this block 

: a L 0369 1 CS_COLL MAN’ 5.1 K XwORd) leang*) ! Largest collating value 

: 374 ' L 0370 1 CS_DCHAR= aye xu tonx'6") ! Number of double characters 

: nie L 0371 1 CS_TB= ay KBYTE). | gs) ! Tie-break / Upper bits 

i Bre L 0372 1 CS_PAD= PS A Pee ! Pad character 

: ae L 0373 1 CS_REVERSE= : soy" foantats ! Reverse sense of tie-break CMPC 

; ae L 0374 1 CS_MODS= PS i nahi ! Modifications were made 

; 379 L 0375 1 CS_IGN= 17.1 feBdT, stan ! There are ignored characters 

: SPRINT x 8 +%x'B! 

: 376 «(1 CS_DCOLL= ($811), ! There are double collating values 

; PRI sen , ¢ vegan 221+ (+%x"B") 

; 382 1! CS PSTAT ICS SADDRESS]J, ! Address of static base table 
: e CS-USTATIC= $SADDRESS i Address of static upper table 
: 1 “UPPER= SBYTES(K, CHARS), i Secondary table 

; 1 CS_PTAB= *”“ COBYTES(K_CHARS*COLL_K_SIZE)J, ! Table of single chars 
1 €S_STAB aeeead ti a ! Table of double chars 
F om * £1292,0-0.00 C#8x"50C") 

k SIZE= SFIELD_SET_UNITS; ! Size in 

; i te €S-Brocke BBLOCKE CS R SIZE) FIELD(CS FIELDS,R brse? FIELDS) 2%; 

HY 1 MACRO CS"PTAB_(X)= COLL_K_SIZE#(X)+ZF IELOEXPAND(CS PTAB ,0),0, 

; 1 at e ZIF COCL_K_SIZE*%ZBPUNIT LEQ %BPVAL 

3 1 ZTHEN COLL_K_SIZE*ZBPUNIT ZELSE 0 


<°2 
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RES-BLOCK 


ZIF NOT XBLISS(BLISS32) XTHEN 
LIBRARY 'S11V3SRC:SORCOLUTI'; 


XELSE 
SUNIT_FIELD 
RES_FIELDS = 
RES_RTN= SADDRESS], 
.0,32,0) (#%x"0") 
RES_RTN_A= SADDRESSJ, 
(4,0,32,0) (#%x'4") 
RES_TB= Y ° 
(8,0,8,0) (+%x'8") 
RES_PAD= tsavtel, 
(9,0,8,0) (#%x'9") 
RES_REVERSE= $BYTE) 
10,0,8,0] | (+#%x"A') 
SALIGN(WORD) 
_PTAB= SBYTES(K_CHARS)], 
12,0,0,0] | (#8x'c') 
RES_UPPER= C$BYTES(K_CHARS)) 
(268,0,0,0) (F%x'10C'5 
RES_STAB= fséyTES(0)] 
ae (524,0,0,0]  (+#%x'20C") 
LITERAL RES. K_SIZE= $F IELD_SET_UNITS; ! Size in bytes 
“FI 


Bliss-32 V4.0- 
SORT3S2.SRCJSORCOLUTI 


This data structure holds the compressed form of the tables. 
For Bliss-11, it is defined in a library so that the structure can be known 
to the comparison routines, which are in a different overlay. 


ZIF RES_K_SIZE GTR CS_K_SIZE XTHEN ZERROR( "Something terrible happened’) %FI 


} These values must be known to the macro routine 
GLOBAL LITERAL 
RESSRTN= 


%F IELDEXPAND(RES_RTN,O), 
RESSTB= %F IELDEXPAND(RES_1B,0) 
RESSREVERSE= = XF JELDEXPAND(RES_REVERSE 
RESSPAD= XF IELDEXPAND(RES-PAD ,0) 
RESS$PTAB= ZF IELDEXPAND(RES-PTAB,O) 
RESSUPPER= ZF IELDEXPAND(RES_UPPER, 05 
RESSSTAB= Xf JELDE XPAND (RES STAB.) 
TBSNOTB = %B'0100', T Do 
TBSNOUPPER =  %8'0010'. ip 
TBSREVERSE =  %8'0001'; i R 
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Sl a a tee ee ee 


BEEP 


MSW —OOONOUS 


‘A ner abl 
dicat 


me one or two b 


ST-BLOCK 


entry consists of: 
n whether the input character is one or two bytes. 


te input character. 


1 
i 
i 
The offset to the next secondary table entry. 
$ 


ine collating value. 

UNIT_FIELD 
ST FIELDS : 
SET 
ST_CHAR= xWORD] 
0 

ST_COLL= ° PaRtrest ge oy sIZ602. 
SOVERLAY(ST_CHAR) 

ST_CHAR_O= od 

co, 0.8 0 (+4x"0" ) 
ST_CHAR.1= CxeyTe 
1,0,8,0 teax't*) 

SCONTINUE 
LITERAL stk k_SIZE= FIELD_SET_UNITS; Siz 
MACRO ST~BCOCK= BBLOCKEST_R_SIZE4 FIELD (ST FIELDS) 


<o- 


pa19be 13:10:40 


SORT32.SRC SORCOLUTI. 3 2;1 


N11 
COLLSUTILITIES 16-Sep-1984 01:06:0 AX=11 Bliss-32 V4.0-74 Page 1 
v04=000 eae rat ey Pe oe hg ee Re — 


; 461 454 1! When we are inserting another collating value, but have no available 

; re 636 : single-byte collating values, we can: 

; 464 4 5 1! Find two adjacent an Ay sor ceerns values (x and x+1) that: 

; 465 +28 1! are not used as the first byte of any two-byte got hot tes values, 

; 466 459 1! and are not used as the posers byte of any two-byte col ayine values 

: 467 460 1! for which the first byte is used as a one-byte collat ng value. 

; 468 Bee) zB Change the characters that collate to x and x+1 to collate to the two-byte 
; 469 136 1: ay tthe values <x,0> and <x,1>, respectively. 

; ry beer : This frees the single-byte collating value x+1. 

; 47 0465 1 ! Or (preferably) we can: 

: 47 Beee 1! 

; 474 467 1! Find a collating value (x) that: 

; 475 0468 1! is used only as the first byte of two=byte collating values 

; 476 0469 1! for which not all 256 different second byte values are used, 

3; 477 0470 1! it has an adjacent value y (either x-1 or x+1) such that: 

; 478 0471 1! it is not used as the first byte of any two-byte cot Loring values, 
: 479 oh) 1! and is not used as the second byte of any two-byte collating values 
; 480 0475 1! for which the first byte is used as a one-byte coi Lee ine value. 
; 481 0474 1! Add another second-byte collating value (z) to the two-byte collating 

; 48 0475 1! values that have x as their first-byte copter ing value, such that z is 
: 48 0476 1! less than (y=x-1), or greater than (y=x+1) all the other second-byte 

> 484 0477 1! collating values. 

> «4485 0478 1! Change the characters that collate to y to collate to <x,z2>. 
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GLOBAL ROUTINE COLLSINIT( 
een REF VECTOR(2) 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


Initialize a collating sequence description. 
It is initialized to zi Tonored characters. 


FORMAL PARAMETERS: 


COLL_SEQ a two-longword array specify 


ing 

of storage to use for the colla 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

The memory specified by COLL_SEQ is initialized. 
ROUTINE VALUE: 

Status code 
SIDE EFFECTS: 


NONE 


i ee ed et te te te te tt te tt te te ttt te te te te 


BEGIN 
CS_SETUP(COLL_SEQ); 


SORT32.SR 


! Collating sequence 


he lLength/address 
ting sequence. 


IF ,COLL_SEQCO] LSSU CS_K_SIZE_ THEN RETURN COLL$_CMPLX; 
CHSFILL(O, CS_K_SIZE CSCBASE 1); 
CSCCS_SIZE] ="MINU(.COLL_SEQCO, 1°XF IELDEXPAND(CS_SIZE,2)-1); 
CSECS-CURR_SIZE] = CS_K SIZE; 
CSCCS"TB) = TBSNOTB OR TBSNOUPPER; 
RETURN SS$_NORMAL; 
END; 
TITLE 
> IDENT 
RES$RIN== 0 
RES$TB== 
RESSREVERSE== 10 
RESS$PAD== 9 
RES$PTAB== 1 
RESSUPPER== é a 
RESS$STAB== 4 
TBSNOTB== 4 


UTILITIES 16- 


Retes 

33 
sEXTRN SOR$_COL_ADJ, SOR$_COL_CMPLX 
.EXTRN SORS"COL GHAR SORS$_COL_PAD 
SEXTRN SORS$~COL~THREE 


-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


12 
Sep lobe 13:t0:40 — USORTS2esReSSORCOLUTT B82; 1 
TBSNOUP 

TBSREVE 


047¢ 90000 .ENTRY COLLSINIT, Save R2,R3,R4,R5,R6,R10 
6 04 AC d0 00002 MOVL COLL_S 
A 04 Ad DO 9006 MOVL 4(R6J, cs 
0000050c = BF 6 D1 09 A CMPL  (R6), #1292 
if 11 BGEGU -1$ 
50 000000006 8F 06 0015 MOVL #COLLS$_CMPLX, RO 
0S0C BF 00 6E 00 $ 00018 1$: MOVCS #0, (SP), #0, #1292, (CS) 
50 66 D0 20025 MOVL  (R6), 
OOOOFFFF  &F 50 D1 00026 CMPL RO, Pa: 35 
05 1B 0002 BLEQU 2$ 
50 FFFF BF 3C QOOdF MOVZWL #65535 RO 
6A 50 BO 00034 2$: MOVW (C$) 
02 AA 050c 8F B80 00037 MOVW F395. 2(CS) 
08 AA 06 90 0003D MOVB #6, 8(CS) 
50 01 D0 00041 MOVL #1. RO 
04 00044 RET 


; Routine Size: 69 bytes, Routine Base: SORSRO_CODE + 0000 
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GLOBAL ROUTINE  COLLSBASE ( + wereeen are 
~ EQ: H at 

' BASE SEQ: REF VECTORER CHARS ,BYTE i Base sequence 

; STATIC 


+ 
oO 


FUNCTIONAL DESCRIPTION: 
Specify the base collating sequence. 
FORMAL PARAMETERS: 


COLL_SEQ a two-longword array specifying the length/address 
of storage to use for the collating sequence. 
BASE_SEQ a 256-byte array giving the (single byte) collating 


value for each character. 

IMPLICIT INPUTS: 

INIT must have already been called. 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

Status code 
SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
BS: REF VECTORCK_CHARS BYTE); 
' BUILT 
NULLPARAMETER; 


CS_SETUP(COLL_SEQ); 


BS = BASE_SEQC0); 
DECR I FROM K CHARS~1 TO 0 DO (CSCCS_PTAB_(.1)]) = .BSC.1) + 1; 
CSCCS_COLL_MAR] = K_CHARS; 

! JF NOT NULCPARAMETER(3) THEN CSCCS_PSTATIC] = BASE_SEQCO); 


RETURN SS$_NORMAL ; 
END; 


0400 00000 -ENTRY COLLSBASE, Save R10 


D 12 
1o-388-1982 94:96:08 = FaMa tb PL ies c3e Mh Oe 


74 Page 16 
B32; 1 9°10) 


; 0523 


. 
o 
7 

. 
. 
a 
. 
* 
- 
. 
> 
2 
. 
o 
. 

. 
. 
2 
. 

. 
o 
o 
. 
7 
o 
+ 
o 
o 
. 
. 
o 
. 
o 
. 
o 

. 
° 
. 
e 
° 
° 
. 
. 
. 
. 
. 
2 
. 

* 
. 
. 
. 
oe 
. 
2 
e 
o 
° 
. 

. 
. 

. 

o 
. 
. 
. 
o 
. 
. 
. 
. 
. 
e 
- 
o 
. 
7 
> 
* 
. 

7 

. 

* 
e 
. 
2 
. 
. 
. 
. 
. 
. 
. 
. 
oe 
. 
e 
. 
. 
. 
. 
o 
o 
- 
. 
o 
. 
. 
. 


12 
vorsooo | TES 1-30-1984 73:98:25 Ueda rS2°SReSsoncocutl 092; 1 Page sds 
0 i UR RO 0565 
010¢ cao OF 1$: (73651 f308¢C82 C13 ; Kise 
1 2 accsit : 
1D 1356 4(CS) + 0569 
ol BE 


; Routine Size: 39 bytes, Routine Base: SORSRO_CODE + 0045 
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16-Sep-1984 01:06:0 AX-11 Bliss-32 V4.0-74 
1 ~300n 138i 94:06:08 SORT32.SRCJSORCOLUTI.852;1 
OLLSUPPE 


I C R( 
COLL_SEQ: REF VECTOR(2) ' Collating sequence 
, UPPER_SEQ: REF VECTORFR CHARS, BYTE ! Secondary sequence 
! ; STATIC 


FUNCTIONAL DESCRIPTION: 


Specify the secondary collating sequence. 

If two strings compare equet using the sequence specified with BASE 
SEQUENCE, MODIFY and IGNORE, the collating sequence specified by this 
routine is then used. 


FORMAL PARAMETERS: 


COLL_SEQ a@ two-longword array specifying the length/address 
of storage to use for the collating sequence. 
UPPER_SEQ a 256-byte array giving the (single byte) collating 


value for each character. 


! 

i 

i 

; 

i 

i 

; 

i 

H 

i 

; 

; 

' 

i 

i 

i 

{ IMPLICIT INPUTS: 
INIT must have already been called. 
IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

Status code 

SIDE EFFECTS: 

NONE 

; 


BEGIN 
LOCAL 
BS: REF VECTORCK_CHARS,BYTE], 


x 
' BUILTIN 
i NULLPARAMETER; 


CS_SETUP(COLL_SEQ); 

X = UPPER_ SECO]; 

IF X NEQ'O THEN X = K CHARS: 

CHSCOPY(.X, UPPER_SEQ(OJ, 0, K_CHARS, CSCCS_UPPER]); 


| TE NOT NULLPARAMETER(3) THEN CSCCS USTATIC] = UPPER SEQCO]; 
CSCCS_1B) = .CSCCS_TB] AND NOT TBSROUPPER; 


RETURN SS$_NORMAL; 
END; 


<o 


COLLSYTILITIES 1ESeoc19Rs 01:06:08 YaReIy BLingcs2 ve.0-743, Page, 19 


043 .ENTRY COLLSUPPER, Save R2,R3,R4,R5,R1 : 0576 
0 4 ac D : MOVL FOL SEQ, RG . ; 330 
A 4 AO D MOVL 4(ROJ, C§ ; 

0 8 aC D A MOVL UPPER_SEQ, 4 : 0628 

50 0100 i 3¢ 19 SevoWL #556, x hes 
0100 = 8F 00 08 ac “ 30 C 13 1$: MOVCS xX, @UPPER_SEQ, #0, #256, 12(CS) + 0624 
08 AA 02 8A OOO1F BICB2 #2, 8(CS) + 0627 
50 01 DO 00¢5 MOVL #1, RO : 0699 
04 00026 RET : 0630 


; Routine Size: 39 bytes, Routine Base: SORSRO_CODE + 006C 
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COLLSUTILITIES Sep- :0 AX-11 Bliss-32 V4.0-7 Page 20 
v0e= 1e28e8=13be 94:98:28 = Hesatb2°bkessbe chats 63.1 9 135 
; 64 $ 1 1 GLOBAL ROUTINE COLLSNEXT( 

; 64 § 1 COLL_SEQ: REF VECTORC2], ! Collating sequence 

; 644 6 1 REF CHAR_BLOCK ! Character being defined 

; 645 634 1 = 
; 64 635 1 !44 

; «64 6 : 1 3 

3 ots ? ! FUNCTIONAL DESCRIPTION: 

; 650 6 § 1/ Define a character to collate greater than any currently defined 

; $2) 640 1! character. 

3; 6 § 641 1! 

: $27 ong : FORMAL PARAMETERS: 

; 655 644 1! COLL_SEQ a two-longword array specifying the length/address 

3 $28 Ree? } of storage to use for the collating sequence. 

; 658 bec$ 1 / CHAR1 a character. 

; 659 0648 1! 

; 660 0649 1! IMPLICIT INPUTS: 

; 661 0650 1 / 

3 666 0651 1! INIT must have already been called. 

; 66 be2g 1: 

3; 664 0653 1 | IMPLICIT OUTPUTS: 

; 665 0654 1} 

3; 666 0655 1! NONE 

3; 667 0656 1! 

: 668 0657 1 i ROUTINE VALUE: 

3; 669 0658 1! 

; 670 0659 1! Status code 

; 671 0660 1! 

; +67 0661 1 ! SIDE EFFECTS: 

; 67 0662 1! 

: 674 0663 1 | NONE 

; 675 0664 1! 

; 676 0665 1 i- 

: 677 0666 2 ” BEGIN 

; 678 0667 LOCAL 

3 679 0668 COLL: COLL BLOCK; 

; 680 0669 

3; 681 0670 CS_SETUP(COLL_SEQ); 

; 68 0671 

; 68 067 CSCCS_MODS] = TRUE; 

3: 684 067 

; 685 674 CScCS_COLL PAX) = sFEECE COLL_MAX] + 1; 
; 686 679 COLL COLL £0] gcstcs COLL_MAXJ; | 
; 688 067 RETURN wats We, CHARICCHAR_ALLJ, COLLCCOLL_ALL) ); 

; 689 0678 1 


OFFC 00000 ENTRY COLLSN XT, Save R2,R3,R4,R5,R6,R7,.RB.R9,~ ; 0631 
04 aC 70 B 9000 mova Foul SEQ, RO > 0670 
4 AO MOVL  4(ROT, C& : 


COLLSUTILITIES 
0B AA 01 8 A BISB2. #1, 11(CS) 
04 AA a0 INCW ©. 46S) : ore 
ze 4 AA 3C 0001 MOVZWL 4(CS), gout + 0675 
5 6 . 01 MOVAB COLL, R : 0677 
0006v o1 BSBW ss GIVE. COLL ; 
1B RET + 0678 


; Routine Size: 28 bytes, Routine Base: SORSRO_CODE + 0093 


12 
EcHEOTIORE 94:06:08 YMGHE OUdogc3z 4805742, i 


<o- 


. 
o 
+ 
o 
~ 
a 
. 
* 
. 
. 
. 
. 
. 
o 
7 
o 
. 
a 
. 
. 
. 
- 
. 
e 
. 
. 
. 
o 
. 
o 
. 
a 
. 
o 
. 
. 
7 
e 
© 
* 
. 
° 
7 
. 
. 
° 
> 
- 
. 
. 
. 
a 
. 
a 
. 
e 
. 
° 
o 
. 
° 
e 
. 
e 
+ 
. 
. 
. 
. 
a 
a 
. 
2 
© 
> 
e 
. 
° 
a 
e 
7 
e 
. 
e 
. 
. 
. 
. 
. 
e 
. 
. 
S 
. 
7 
. 
o 
. 
. 
. 
~ 
. 
. 
* 
. 
om 
. 
oe 
. 
. 
. 
* 
. 
o 


———— 


NONE 

i ROUTINE VALUE: 
Status code 

i SIDE EFFECTS: 


pejojojolol~) 
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COLLSUTILITIES 16-Sep-1984 01:06:0 AX=-11 Bliss-32 V4.0-74 Page 22 C 
viventity 122808-1 388 93:98:08 YgoRT 2.SRCJSORCOLUTI .852;1 . $3 Vv 
691 44 x( H 
69 GLOBAL ROUTINE COLLSOTHERS( : 
69 6 COLL_SEQ: REF VECTORC2) ! Collating sequence . 
694 6 d= : 
695 6 le+ : 
038 6 : 3 
pad ? FUNCTIONAL DESCRIPTION: : 
SPP 6 Define all currently ignored (undefined) characters to collate larger F 
00 6 than all the non-ignored (defined) characters, in order of the ; 
£8 re character codes. : 
708 $3 i FORMAL PARAMETERS: ; 
705 69 COLL_SEQ a@ two-longword array specifying the length/address 3 
AN $9 of storege to use for the eal lsting soquente. . 
70 069 : 
708 $28 : 
709 69 ‘ 
1 069 INIT must have already been called. : 
: 070 
1 5 ; 
1 : 
; 


L 
CHAR: CHAR_BLOCK, 

P REF COLL_BLOCK, 
CS_SETUP(COLL_SEQ); 
CSCCS_MODS] = TRUE; 
CHARLCHAR_LEN] = 1; 


P = CSCCS_PTAB); 
INCR I FROM 0 TO K_CHARS-1 DO 
BEG! 
| 
| 
| 
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8 
39 N 
740 
741 RIF _RFIELDEXPAND(COLL ALL.2) NEQ 0 
74 XTHEN .PCCOLL ALL EOC 
74 ZELSE :PCCOLL~COJ EGL O AND .PCCOLL_C1) EQL 0 
744 iF I 
745 THEN 
746 BEGIN 
747 CHARCCHAR_CO) = .1; 
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COLLSNEXT(COLL_SEQ(0) CHARCBASE. ); 
TF eR RROR_( .S ) THEN RETURN 


P= .P + COLL K SIZE; 
END; 


RETURN SS$_NORMAL; 
END; 
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; 738 745 1 MACRO : 
; 7 ” 146 1 FOR_ALL_COLLS(X) = ; 
: 760 M0747 1 EGT : 
: 761 4 148 1 LOCAL X: REF COLL_BLOCK; : 
: 76 M0749 1 LOCAL STEP: ; 
; 76 ™ 0750 1 xX = CSECS PTABI i : 
> 764 m 0751 1 STEP = COCL size: : 
; 765 m 07 : 1 DECR FIRST FROM fo 0 DO ; 
: 76 m 0753 1 BEGIN ; 
: 76 ™ 07 A 4 DECR I FROM (IF .FIRST THEN K_CHARS ELSE .CSCCS_DCHARJ)-1 TO 0 DO ; 
; 768 ” 136 BEGIN : 
: 198 8 oF $ 1 END_ALL_COLLS(X) = ; 
otcE Ls 5 ew 3 
; 18 ’ $788 1 STEP = §T_K_SIJZE; : 
: 774 M0761 1 = .X + ZFTELDEXPAND(ST_COLL,O) : 
> 775 * 076¢ 1 = K_CHARS * COLL_K 3 
: 776 m 0763 1 - ZPIELDEXPAND(CS_PTAB,0) 3 
: 777 M0764 1 + ZF IELDEXPAND(CS~STAB.O); ; 
: H§ m Ore en ge 
; 780 4 0767 FOR “ALL DCHARS(X) = : 
: 78 m 0769 1 LOCAL x: REF ST_BLOCK; ; 
: 78 m 0770 1 = tstcs STABI> ; 
: 784 m 0771 1 1 FROM .CSECS_DCHARJ-1 TO 0 DO ; 
: TR m ORs 4 "BEGIN 
: 787 M0774 1 END_ALL_DCHARS(X) = 3 
: 788 M0775 1 X = .X + ST_K_SIZE; : 
: 88 m Ore END i. ; 
RB | Fon gbuascn « : 
: 79 m 0780 1 LOCAL X: REF COLL_BLOCK; ; 
: 794 40781 1 x = CSCCS_PTAB); ; 
: 795 4 078¢ 1 DECR I FROM K_CHARS-1 TO 0 DO : 
: 398 m Otee _— 
: 798 m 0785 1 END_ALL_ SCHARS(X) = ; 
: 799 M0786 1 + COLL_K_SIZE; : 
: 800 m 0787 1 : . : 
: 801 0788 1 END %; : 
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GLOBAL ROUTINE COLLSMODIFY( 
COLL SEQ: REF VECTORC2), ! The collatin 
CHART: REF CHAR_BLOCK, ' Character be 
CHAR2: REF CHAR-BLOCK, i 
+ ! Adjustment 
= 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
Modify the collating sequence. 
Based on the value of ADJ, define CHAR! ¢t 
equal to (0), or Just greater than (+1) CHA 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 
INIT must have already been called. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status code 
SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
COLL: COLL_BLOCK, 
LADJ, ' Local cop 
33 ' Status value 
CS_SETUP(COLL_SEQ); 


CSCCS_MODS) = TRUE; 


: bottne gums to collate: 
! the character CHAR2. 


In terms of this character 


° geltete just less than (-1), 


COLL_SEQ a two-longword array specifying the length/address 
of storage to use for the collating sequence. 

CHAR1 the character being defined. 

CHAR2 the character used to define CHAR1. 

ADJ adjustment; either -1, 0 or +1. 


= -1) less than, (ADJ = 0) equal to, or (ADJ = +1) greater than 
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SORT 2.SRC SORCOLUTI. if 231 


Check that ADJ = +1, 0, or =1 
LADJ = .ADJ; 
SELECTONE .LADJ OF SET C=1,0,+1]:0; COTHERWISEJ:RETURN COLL$_ADJ; TES; 


Set COLL to the current collating value of CHAR2 


; = COLL Da whe eit “we COLLCCOLL_ALLJ); 
IF_ERROR_( .S ) THEN RETURN 


! if COLL indicates an ignored character 

‘ n 

heck that ADJ >= 0 

f ADJ > 0 then set COLL to the lowest character, and ADJ to -1 


' 
i 
i 
i 
i 
IF eh -COLLCCOLL_COJ EQL 0 


e 
C 
I 


GIN 
IF rt LSS 0 THEN RETURN COLL$_ADJ; 
IF .LADJ GTR 0 
THEN 
BEGIN 
sett bEOLL.93 = 1; ! The smallest collating value 
COLLCCOLL_C1J = 0; i No second character 
i. = -1; i Create something even smaller 
END; 


Give CHAR1 the collating value COLL 

= GIVE_COLL( CHARICCHAR aul COLLCCOLL_ALLI ); 
IF_ER ROR_ ( .S ) THEN RETURN 

If ADJ = 0 then we are done 

IF .LADJ EQL 0 THEN RETURN SS$_NORMAL; 


Set COLL to the current collating value of CHAR1 
é = COLL -VALUE (CHART ECHAR ALL. COLLCCOLL_ALLJ); 
iF _ERROR=( .S ) THEN RETURN 


! Bump the collating values of everything. greater than or equal to the 
new collating value we want to give CHAR 


IF (S = .COLL COuL c1)) i 0 THEN S = .COLLCCOLL_CO]; 
IF .LADJ GTR HER S + 1; 

S$ = DO BUMP(, x. 

IF ERROR ( .§ )’ THEN Es” $3 

CSCCS_COCL_MAX) = .CSCCS OL AX) + 1; 
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' 
; 
§ = 

IF_ERROR-( .S 


' 
i 
iF .COLLCCOLL_C1]_NEQ 0 
THEN COLL COLC ci] = COLLECOLL C1 
ELSE COLLECOLL~COJ = sCOLL COLL c0 
RETURN GIVE_COCL( CHARICCHAR_ALC), 
END; 
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: Set COLL to the current collating value of CHAR! 


COLL VALUE (CHARICCHAR ALLJ, COLLCCOLL_ALLJ); 
) THEN RETURN .S; 


hey ti 
LCCOLL_ALLJ ); 


1$: 
23: 


3$: 


4$: 


ENTRY COLLSMODIFY, Save R2,R3,R4,R5,R6,R7.RB.RI,- 
MOVAB COLL_VALUE, R4 
SUBL2 #4, SP 

OVL  COLL_SEQ, RO 

OVL 4 (ROT, CS 
BISB2 #1, 14(CS) 
MOVL ADJ, LADJ 
CMPL  LADJ, #=1 
BLSS 1$ 
CMPL —=sLADJ, #1 
BGTR 1$ 
MOVAB COLL, R2 
MOVL  CHAR2, R1 
JSB COLL_VALUE 
BLBC 9$ 
TSTW COLL 
BNEQ $ 
TSTL LADJ 
BGEQ =-_-2$ 
MOVL  A#COLL$_ADJ, RO 
RET 
BLEQ $ 
MOV 


BLBC OSS 
TSTL LADJ 

BNEG 4$ 

MOVL #1, RO 

RET 

MOVAB COLL, R2 
MOVL CHARI, R1 
JSB COLL_VALUE 
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COLLSUTILITIES 16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 Page 29 
you~000 1 =30P 71382 94:06:08 SORT 2.§RCISORCOLUTI .B 2;1 . (16) 
; 934 938 1 GLOBAL ROUTINE COLLSFOLD( 
3 939 9 1 COLL_SEQ: REF VECTOR(2) ! The collating sequence 
: 9 $ 921 1 “U3 REF BITVECTORLK_CHARSJ, | Lower case Letters 
; 9 9 ¢ 1 cc ! Lower XOR .CC = Upper 
; 9s 8 1 )= 
: 939 924 1 !44 
; 940 925 1! 
3 +h 2 § : } FUNCTIONAL DESCRIPTION: 
; 308 0928 1! Fold characters (this is a shorthand for several calls to MODIFY). 
; 944 0929 1! For each character (X) in the set of characters specified by BV_L, 
; 945 4 01! define it to collate equal to its change-case form (X xor C ). 
; 946 951 1! Also, for all double characters for which neither character is in BV_L, 
; 947 O38 1! define the change-case forms to equal it. 
; 948 09 1! 
3; 949 Bae 1 ! FORMAL PARAMETERS: 
: 950 0935 1! 
; 951 0936 1! COLL_SEQ a two-longword array specifying the lLength/address 
3 226 9444 ! } of storage to use for the collating sequence. 
; 954 0939 1! BV_L the address of a 256-bit bitvector. 
; 955 0940 1! 
; 228 bos ! cc change-case value to be xor-ed to give the other case. 
; 958 0945 1 ! IMPLICIT INPUTS: 
; 959 0944 1! 
; 960 Boag : INIT must have already been called. 
; 0947 1 ! IMPLICIT OUTPUTS: 
3; 96 0948 1! 
: 964 0949 1! NONE 
; 965 0950 1! 
: 966 0951 1 =! ROUTINE VALUE: 
: 967 b3eg 8: 
; 968 0955 1! Status code 
3; 969 0954 1! 
; 970 0955 1 ! SIDE EFFECTS: 
3; 971 944 1! 
3 OF 0957 1! NONE 
: 97 0958 1! 
3 «974 0959 1 !-- 
; 975 0960 BEGIN 
: 976 0961 LOCAL 
3; 977 bas OLL COLL_BLOCK, 
; 978 bee CHAR CHAR_BLOCK, 
; 979 964 Ss ' Status value 
; 980 0965 
3 st 3443 CS_SETUP(COLL_SEQ); 
5 + 3444 Define lower case letters to equal their upper case equivalents 
; 985 390 CHARCCHAR_LEN) = 1; 
: 986 971 DECR I FROM K_CHARS-1 TO 0 DO 
: 98 38 i C.1) 
: 988 97 
3; 989 Bare BEGIN 
; 990 975 CHARCCHAR_CO) = .1; 


; 44) 
; 97 

: 44 
3 97 

3 980 
3 R 1 
; 09 j 
3 0984 
3 83 5 
3; 7 986 
3 st 
3 3 988 
3 989 
; 1005 0990 
; 1006 0991 
; 1007 099 

: 1008 099 

: 1009 0994 
: 1010 0995 
: 1011 0996 
3 ISt¢ 0997 
3: 101 0998 
: 1014 0999 
: 1015 1000 
: 1016 1001 
3; 1017 ISn6 
: 1018 100 

3: 1019 1004 
3 1930 1005 
: 1021 1006 
3 19e¢ 1007 
: 102 1008 
: 1024 1009 
3; 1025 1010 
: 1026 1011 
3 1027 Iie 
3; 1028 101 

3 4 1014 
; 1030 1015 
: 1031 1016 
3: 1032 1017 
3; 1033 1018 


DINING BAA AAA MMA A NNN NPA AAA AA UII & SEPP 
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ARCCHAR ALLJ, CSCCS_PTAB_(.1 XOR .CC)J ); 
HEN RET TORN .§; 

' For all double characters that contain no lower case letters, 
and that contain upper case letters, define lower case forms. 


CHARECHAR LEN) = 2; 
FOR ALL ot -DUHARS (ST) 


T .BV_ + STEST_CHAR_OJ] AND 
NoT -BVILE.STEST-CHAR@1 
BEGIN 
CHARCCHAR_CO1) = .STCST_CHAR] 
F .BV_LCTSTCST_CHAR_OJ-XOR «CCI 
THEN 
BEGIN 
CHARCCHAR_CO] = .CHARCCHAR col x R .CC; 
S = GIVE_COLL( CHARCCHAR RAC Tesi COLL] ); 
IF _ERROR™ ( ‘S. ) THEN bee “ 
IF~.BV_LE.STCST_CHAR_1 XOR 45 
THEN 
BEGIN 
CHARCCHAR_C1] = .CHARCCHAR_C1) XOR .CC; 
S = GIVE_COLL( CHARCCHAR ACLJ, STCST_COLL] ); 
IF ERROR s) ) THEN RETORN mt 
CHARCCHAR_CO) = .CHARCCHA coy" XOR .CC; 
S = GIVE “TOLL CHARCCHAR Meck STCST_COLLI ); 
IF_ERROR-( .S ) THEN RETORN .§; 
- p END; 
ELIF .BV_LC.STCST_CHAR_1] XOR .CCJ 
THEN cin 
PRART CHAR C1) = .CHARCCHAR_C1 1x .C 
§ = GIVE_COLL( CHARCCHAR ACLJ Est “tau ); 
IF ERROR~( .S ) THEN RETORN “.2 
ENB; 
END; 
END_ALL_DCHARS(ST); 
RETURN SS$_NORMAL; 
END; 
OFFC 00000 ENTRY COLLSFOLD, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
57 0000Vv cf 9 9900 MOV cive® COLL, R7 
BE 4 00 SUBL 
5 04 AC DO OO00A MOVL colt SEQ, RO 
SA 04 Ad 00 0000 MOVL Te 
og BRR Be BW i 
FF oF BA 6} MOVZBL ayy A I 


Page 30 


(16) 


; 0919 


SREISORCOLUTI 88251 


rote Pt 34 =32 V4.0-74 


SORT 


Sep-198e 5:10:06 


F 13 


1 


COLLSUTILITIES 
v04=000 


Wo noe w oo ms wo -—VuMr one nwnwsrr 
BS fee BEER FE ES Ses SS SHE 
oo ooooe o Oo oOo oo oo o- more -— — HO 
SPSS PS FS FS FSFE FS FS HS FTS HS FS HS HS HS HS HS FS HS HS HS HS HS HS HS HS HS HS SR SS PS HS SSCS HS TS FE SETS SEHR SCR HR SCR EE ES 
~N 
i+ 
— 
. wn fr wan A A fA 
a to | ~ n~+ wT ~ ~ 
~ - a a ~N Lal ~N ~» 
NRK—ae ww ~ — sf stN a = 2eN J te = sem 4 
se Wie Gor ant — aeees f&© naAGee sy & fF AAEM 
aac -~ZcoO qe en Me gc& HE £O w<t «co <« wnt «£oO 
wen ww xa es aeeaersrt ew ets wv wr Ore ww = ears wY &- CO 
Qarew + MeLor~- wwe aw 9 Sw + MA EwVUnR + MY AEwYUR + MHHeEX 
~o ~auWe.— WH A Fe AR OA — wore —-cwo - Kaowo 
20o< > Oo — WH ee Se © 8 ES YW +s MSI> = Wes MEt> . ° 
= MOT = MYNWHY ROR HK NUM Te Tw Te we rw Ow Te rw I HO Oe 
SY VO MB OOK Ce EY OK EET EVVU NE SE CVCYUMNAEMNK SeAevucvweB 
f=] a «sD ad — I —_) c=] 
Octet VYOoOBIn SN NM BUNS Ot CNY © vCO ~Y Oct YUH 
Vra>roagaaga> > rarwrM>r> raved lS rae ravudc> rOaOacearacvudc> > Ooaaga > 
DOOC0COM JOOCOCOTFOMDOMDOCCOMC00OM JOOMOOC0OM JOZTOOCDO0C0OMW JO0COWwW 
OF xf OMFTTEOLOLOLEEXOxE SOF XOxXE Eo OxOFXxXOxXEE- O29 
a a a a A RAG @ 
- ~N my wT wn oro Oo 
Rare OTTO aod oo FPR DODD Bree DOD ee R84 oe Ss 
SOOO PIII IN SF ST AT TUNA OO OO OR-P-P-P-F- ODODDOOOOOO LE eee OOoaomoan 
COOQCOOOOCOOGOOCOCOCOSCGOCOCOGCOOCSOSOOCOSOOOSOOOOOCOCOOCOOOOCOOOCOOOOCOOOO 
COOCCCOCOCOOGOOOCOSOOOCOCOCOSOOSOOOOSOSOOOOOOOOOCOOOOOOOOOOOoOSoO 
OOoOSCOCOOOOOCOOCOOCOCOSOOCCOCOCCOCOOOOCSOOOOOCOCCOOCOOCOOCOOCOOCOOOOOoOO 
—OOwwWwOO TOW LO LOCO LV VUWW OO BV — OWW OO VR LO OWWOOOwOosy 
WA VOD Wie DOM OWI WD OO BWIA O — WO UWA OO — WI  — O VOWODOO WOU BO 
PEN Oe UIP OPIN LOOM OPT TMP OPT TIP Ont ET AT LP ODDO 
Bere ee ee a er ee a yee ae 
=) 
vv vo _ vw N _ ~N _ N 
oo oo Oo o o oOo o oOo oO 
- wm 
Oo oOo 


MUP DVUWIMO K—M KNW TR RK NWN RK Rem NWNRK— aw KK NWN MOO 
OEIMNWN PF WOUWWNM MNOMOEMMNMOEUM TOMO ANN WE NNO EM DOMDM 
N N ™N » ™N ~» 
Oo Oo Co o o o 
~~ Oo w - _- oOo 
- wh oOo ww | a) | a) - 


SOR$SRO_CODE + 015C 


192 bytes, Routine Base: 


; Routine Size: 


vw> lilt ede Bed Ree te Dette tee eh eh ah dh hh a nd a od od oe ed od ed *erere rare re re *S Fe re re 


| 
| 
= 
es 
N 
wre 
~w@ 
™m « 
i 
or 
> 
wou 
>o 
vu 
Na 
moO 
1» 
an 
Wu ee 
a * ~ 
~—wn 
@s- mn) 
~N ad 
Cet a} all 
-—— < 
‘c ' 
xo =) 
«mm ad 
>w o 
vu 
uw 
oul 
—J *e 
NO Oo — 
ow = vv 
“- =z fom} 
woo =x . J 
o— w 0 — 
7 ee ~ << 
_—_s) °o om) t 
o- ae o a) 
v J 
wv c t *O 
ooo be) « <W 
oan 0 = -? qin 
-— o w = an 
i | c yn Yv zo . 
aa - ® ra) COO « 
me @® - . a oe -~ & « 
nm af a o — <« ~ re = 
te ad Toe *@ = tn] -J3 * Ww 
woot Oo uy Yv - owe a 
—— vu @ Q ow . So eo 
2 S er ~ Yv eo 
a ~ ~oo ' i a <« 
| °o @ o@ oO @ « <«zio 
=’ - > oe = a @ < zen w 
a ™N _ =x vw> J 
> ec o cm a. Y wo 2 
® c oe oO 4 uw awe a 
o -~ eo cee ” a <cw D> 
c ,. 20 Yv —. = ao we 
. - @ eo a . — =) = vwZzz w 
mae con _ ~m ~~ “ vv ww 
Vu @ o—~ a] vw = Yv . ~=x=e 
oo — °o ce oO So ~ Be hd 
aun —) »v ¥v a ail a ~ a were ee 
@m °o ow @ oo 4 23OoO0—CiaSCO—s 
'm~w oe Vv @ © ~~ t a p™ 4 '_ws © 
aut z @ «ft iam) _ ow Aaa 2 
<iw oO ® ao] — z < og o< <« 
xo2m _- £ o@ oO w 1 Ww Neos t 
Vue - > YL I ad v —+ - 
=) a. ee on i J ea. aa 2D 
wu 8 - own =m + a “ a oO =z £zO OO 
~www =e + «= hd , aod w <x C=) Nos tw 
+jeawu rw) w vn + @& ° « = zi 2 &-_f&eF 1 © 
j nn = fe —- #£a D> -_ vw tse HO oe ous - ot 
oO wt w — ws & w - o> hd o>a of w >avo 
v oa = = a 806m - — ee) ~ « wot www t pat Seek | 
fer = v z “ D> a 3S = 7“ = <« @Ofw OF —Ew 
wow oall =e ec as eS eer Ow SE He Yow . i @ ee : ho 
><a =< -» <«a«t##wJe _ =z > @ew2za =z 5S Ver o zu 
—=zxoO 2 eoaezxtoe- 2% ¥- oO ~ «= O w wie N uw 
Oven o ee ee > ee? ee, a 2 2 w Nu ww we 
= oul vw Y 2a w —< yy w 
w - <x at co — Ww wn 
= C=) = =) al oa w wo “ <« 
- z « a a = | a ow ee wo 
ad > oO = = oO Sed 
b= > ve _ _ [. 4 ” ‘ 
= s : 


POKMNT NOR DAO WM TIMOR. DOO CUM TMNOR. DHOK— CIM SFM OR. WOOO MUM TMOR. DOO CUM T 
ONO OI OO OOP PPI SF SF ST TT SFT TT TWOWAAUAWAAAALAWN OOOO OOOOOOR-AA_PAKR 
COOOOCOCOCOOCCOOCSCOOCOOCOCOCOSOOCSCOOOOCOSOSSOOSOSOSOSOOSOSOSOSOOSOSOOSOOSOSOSOOOOOOOOOOOOoOO 


LLL CC OC OC OOO OT 


PIS ae Sree eee ROAR RE Bo FAO FBO Or INGO OP Benen Or Oo 
OOCOCOSCCCOCCOOOOOCOOOCOOCOCOOCOOOOCOOCOOOO felelelolelolel oleae oleate oleae ala) 


LLL LL LLC LLL LLL Se 


COLLSUTILITIES 
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3; Routine Size: 


01 


74 bytes, 


RETURN SS$_NORMAL; 
END; 


53 
53 51 
01 63 
0019 0000 
50 000000006 er 
50 02 A 
010C CA40 § 
51 02 A 
0000v 
50 
07 
51 02. A3 
0000v 
50 
09 
50 000000006 Be 
60 83 
50 01 
08 


Routine Base: SORSRO_CODE 


H 13 
16-Sep- 
14- =Sep- 


DD 0C000 eteieoaies 


DO 000 
18 
0009 1$: 
DO 0000D 
11 Bote 
9A 00016 2$: 
DO QOOTA 
11 000 8 
HS 0022 3$: 
0 00026 
D5 00029 
12 00028 
35 00020 
0 00031 
DS 00034 4$: 
is 44 6 
DO 00038 
11 0003F 
DO 00041 5$: 
DO 00044 6$: 
BA 00047 7$: 
05 00049 
+ 021C 


1986 95:98:45 


AX=1 1945 =32 V4.0-74 
SORT 2° Re SORCOLUTI .832;1 


HAR), R1 
00 


H 

0 

CHAR), RO 

OLL), 268(CS) CROJ 
C 

LOOKUP 

M 


#COLLS_CMPLX, RO 
seo). (TEMP) 
a hcRS> 


P08 43) 
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<- 


COLLSUTILITIES 14 ims 1984 0 AX-11 Bliss-32 V4.0-74 P 4 
= - :U6: = ss- eU= r | 
v04- 12286871984 93:98:25 SORT32.SRCJSORCOLUTI .B52;1 943) 
1095 ROUTINE COLL_ VALUE ( 
0 CHAR: REF CHAR_BLOCK, ! Character to look up 
09 REF COLL_BLOCK ! Collating value (output) 


COLL: 
): CS_LINK_2 = 


oo 
Oo 
co 


FUNCTIONAL DESCRIPTION: 
Look up the collating value of a characetr. 


SRAVLSS 


FORMAL PARAMETERS: 

CHAR a character who's collating value is to be found 
COLL where CHAR's collating value is to be stored 
IMPLICIT INPUTS: 


INIT must have already been called. 
CS is specified as a global recister. 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status code 
SIDE EFFECTS: 
NONE 


CWOODOOOOOOWWMOWMmcMm@ODcd ~~ 


+ 


INARI RIPININPINININININ 2 2 2 SO OS ohh uhh 


L 
TEMP: COLL BLOCK, 
P: REF COLL_BLOCK; 


CS_SETUP(); 

CASE, ARTCHAR LEM FROM 0 TO 2 OF 

C2): 

BEGIN 

See whether this double character is defined 
= §-LOQKUPC .CHARECHAR_CO13); 

me NEQ 


BEGIN 
MOVE COLL_ALL_( COLLCCOLL_ALLJ, PCCOLL_ALLJ ); 
RETURN SS$_NORMAL ; 


P 
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§ 


<—- 


NOur se 


! Take the Fongetenet sen of the collating values of 
the two single characters. 
MOVE COLL_ALL_( COLLECOLL_ALLI, HH: PTAs. {- CHARE CHAR COI} 2 ); 
MOVE stb ALL_( TEMP aioe » CSECS_PTAB_(.CHARCCHAR_C1J)J ); 
if cout COLL=COJ EQL 

MOVE COLL_ALL_( COLLCCOLL_ALLJ, TEMPCCOLL_ALLI ) 
ELIF .COCLCCOCL_CT] Eat 
THEN 

BEGIN 
es tt Ci] = , TEMPCCOLL_CO]; 
IF -TEMPCCOLL_C1) NEQ 0 THEN RETURN COLL$_THREE; 


Wr—OO0oe 


IF ,TEMPCCOLL_CO] NEQ 0 THEN RETURN COLLS$_THREE; 
Ne SS$_NORMAL ; 


(1): 


BEGIN 
MOVE COLL ALL ( COLLCCOLL_ALLJ, CSCCS_PTAB_(.CHARCCHAR_COJ)J ); 
A a SSS_NORMAL ; 


(0): 

BEGIN 

cote bCOLL.c09 0; 
COLLCCOLL_C1) 0; 
RETURN SSS$_NORMAL: 


END 
CINRANGE , OUTRANGE): 
RETURN COLL$_CMPLX; 


TES; 
END; 


Be Se Se Oe Se Be Se Se Se Ge Se Se Se Oe Se Se Se Se Se SF S5 Se Se Se Se Se ee SeSe esse Bee Sees 
Ok kd 
FAN SVs RANASSSuF- 


i ee ee ce ce ce ee ed ed ed ed ed 
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ce a a ee we ee ce ee ed ee ee eed ee eed 
ec ce ce ee ce ee ce el ce cl ce el el el eel el el eel 
HPPA AAD Ms BB BP PEEP EWI 
ODONAOUES WN 0 OONOAUS WN OVOOWVOULS WR OOOnNOu 


=NNININNN WWIII WIA WINE & SB PWN EWI 


53 DD 00000 COLL_VALUE: 
PUSH 


5 
55 RI. RS 
02 00 008 CASEW (CHAR), #0, #2 
000F 0057 OOC 1$: «WORD $-1$,- 
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2$- $ o 
50 000000006 af 00 0012 MOVL ‘ OLL$_CMPLX, RO > 1165 
51 02 A3 ; 001B 28: MOVZWL 2(CHAR), R1 : 1127 
0000v 1F BSBW  D_LOOKUP F 
30 D 2 oh es + 1128 
0s 1 4 BEQL 3$ : 
62 60 D $ MOVL  (P), (COLL) > 1131 
46 11 BRB 9$ :11 H 
50 02 Ad 9A 00028 38 MOVZBL 2(CHAR), RO > 11 


COLL SUA ILITIES 


; Routine Size: Routine Base: 


poke 


6E 010¢ al 
et 
02. A 

08 

A2 6E 
02 03 

i) 

50 000000006 of 
50 02. A3 
62 010C CA40 
65 

50 01 
5E 04 
08 


Bliss-32 V4.0-74 
SORT32.SRCJSORCOLUTI.B 2;1 


oman 


~~ 


LL$_THREE, RO 


SORSRO_CODE 


———— 


> 
! 
| 
| 


13 | 
vor000 SS IESeocta8s 94:08:08 YaRGHL OLisacsz ysite7 Peet 155 


CS_SETUP(COLL_SEQ); 
CSCCS_TB] = .CSCCS_1B] AND NOT TBSNOTB; 
IF _.ORDER 
CSCCS_REVERSE] = .CSCCS_REVERSE] OR TBSREVERSE; 
RETURN S$S$_NORMAL ; 


ep sive thet ht] 


; 1188 1170 1 GLOBAL ROUTINE COLLSTIE_BREAK ( ! Indicate tie-breaking 

3; 11 1171 «1 COLL_SEQ: REF VECTORC2], 

; 1190 1106 1 ORDER ! Ascending/Descending flag 
3; 1191 1175 «1 d= 

H 1138 1174 1 S44 

; 119 pte 2B 

; 113¢ 1328 } : FUNCTIONAL DESCRIPTION: 

; 1196 1178 1! Indicates that a eve~broct tng comparison should be done to distinguish 
: 1197 1179 1! records that compare equal with the primary and secondary comparisons. 
3 1138 1181 : } This tie-breaking comparison is a simple binary string compare. 

; 1200 1188 1 ! FORMAL PARAMETERS: 

: 1201 1185 1! 

: 1 4 1184 1! COLL_SEQ a two-longword array specifying the length/address 
$ : 7 1382 : of storage to use for the collating sequence. 

; 1205 1187 1! ORDER indicates whether the simple comparison part of the 
3; 3 Be 1188 1! tie-breaking should be: 

3; 120 1189 1! In the normal order (ORDER = FALSE) or 

; 1308 1109 : } In the opposite order (ORDER = TRUE). 

3; 1210 1136 1! This distinction is important for DEC STD 169, which places lower case 
3: 1211 1195 1! letters before their upper case equivalents. It is unrelated to whether 
3 sig 1194 1! the keys are ascending or descending. 

3 121 1195 1! 

3 1214 1196 1! 

3 1215 1197 1°! IMPLICIT INPUTS: 

3; 1216 1198 1! 

3: 1217 1199 1! INIT must have already been called. 

: 1218 1590 1! 

3: 1219 1201 1 =! IMPLICIT OUTPUTS: 

3; 1220 1606 . 7 

3: 1221 1205 1! NONE 

; 1388 1204 1! 

: 122 1205 1 ! ROUTINE VALUE: 

: 1226 1206 1! 

: 1225 1207 1! Status code 

: 1226 1208 1! 

3: 1227 1209 1 ! SIDE EFFECTS: 

3 1 1210 1! 

3 7 tell 1! NONE 

3 1 iste fi 

3: 1 3 1 !-- 

a 1214 BEGIN 

31 1215 

3: 1 1216 

3 1 1217 

3 1 1218 

3 1 1219 

3 1 1220 

+ 1353 

: 1 1558 

s 1 1224 

: 1 1225 
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rivets ox 808-1382 94:98 8§ Pe ee eg ae MOST 9251 9¢ 435 
040 .ENTRY COLLSTIE_BR REAK, Save R10 : 1170 
0 4 ac D VL cout SEQ : 1216 
A 4 A p MOVL (ROT, CS ; 
08 AA 04 8A OOO0A BICB2 #4, BCS) + 1218 
04 08 AC €9 000g LBC. ORDER, 1$ : 12 0 
OA AA 07 88 0001 BISB2 #1, 10(CS) : 1222 
50 01 DO 00016 1$: OVL #1. RO + 1224 
04 00019 ET + 1225 


; Routine Size: 26 bytes, Routine Base: SORSRO_CODE + 02E0 


<-o- 


a<eno 


N 13 
vou000 1e-$ep-1986 S:f0:48 — ESdars2esneSsoncocori .082:1 Pa9e (29) 


: 1245 1 § 1 GLOBAL ROUTINE COLLSPAD( 3 
: 7 48 1 1 COLL_SEQ: REF VECTORC2), ! The collating sequence ; 
> 124 1228 1 REF CHAR_BLOCK ! Pad character ; 
3 3 re 1229 1 ) =z $ 
3; 124 1230 1 !4¢ 3 
; 1250 st St 3 
3 : 2) } ¢ ! FUNCTIONAL DESCRIPTION: : 
21 2g 1234 1! Specifies a pad character to be used in comparisons of strings with : 
3 : ee : 5 } different lengths. : 
: 1986 ? | | FORMAL PARAMETERS: : 
> 1258 1239 1 COLL_SEQ a two-longword array specifying the length/address ; 
3 : 3 : re } } of storage to use for the collating sequence. : 
: 1261 1 4@ 1 i PAD the pad character. ; 
3 3 $6 12435 1! 3 
3; 126 1244 1 ! IMPLICIT INPUTS: 3 
3 1264 1245 1! 3 
3; 1265 1246 1! INIT must have already been called. : 
; 1506 1247 1! : 
3; 1267 1248 1 ! IMPLICIT OUTPUTS: $ 
3: 1268 1$e2 1! 3 
3 1269 1250 1! NONE ; 
3 1520 \$2 1! 3 
3; 1271 125 1 ! ROUTINE VALUE: : 
3 iste 1253 1! 3 
3: 127 1254 1! Status code ; 
3 1274 1255 1! 3 
3; 1275 1256 1 ! SIDE EFFECTS: : 
g 1576 ico, 3S 3 
3 1277 1$28 1! NONE 3 
3; 1278 1259 1! 3 
3 1279 1260 1 ! NOTES: 3 
: 1280 1261 1! 3 
3 1281 1366 11 Assertion: . b : 
3 186 1265 1! The purpose of a pad character is to allow strings of different 3 
: \s8 1264 1! Lengths to compare equal. 3 
> 1284 1265 1! Therefore: 3 
3; 1285 1266 1! There is no reason to have a different pad character for the 3 
: 1286 1267 1! tie-break. 3 
3 1287 1268 1! Also: 3 
3; 1288 1269 1! It is unreasonable for the pad character to be ignored. 3 
3 1289 1270 1! It is unreasonable for the pad character to be the second F 
3: 1290 1271 1! character of a double character. 3 
3; 1291 1272 1! 3 
3: 1 4 1273 1 !- 3 
: 129 1274 BEGIN : 
: 1294 1275 3 
; ; 95 ! 4 CS_SETUP(COLL_SEQ); : 
:1 39 1278 IF .PADCCHAR_LEN) NEQ 1 THEN RETURN COLL$_PAD; ; 
: 1 38 1279 CSCCS_PAD] = .PADCCHAR_CO); é 
3 1 1280 RETURR SS$_NORMAL ; Hy 
3; 1300 1281 3 
: 1301 1282 END; | ; 
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voe-000 SS 1ESeort9Qs 01:06:03 YARcTL BL tagcRZ We. O-74z, Page 0) 


0400 00000 ENTRY eat eee Save R10 : 1226 
50 04 aC 59 9002 MOVL COLL SE ; 1398 
2A 06 =A D6 06 MOVL 4C(R is : 
0 08 AC DO OO00A MOVL PAD ; 1278 
01 BI OOF CMPW ss (ROS, » : 
13 0001 BEQL «ss 18 : 
50 000000006 8F i 0015 MOVL #COLLS$_PAD, RO ; 
09 AA 02 AO 90 0001B 18: MOVB  2(RO), 9(CS) : 1279 
50 01 00 9020 MOVL #1, RO : 1280 
04 00023 RET : 1282 
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COLLSUTILITIES 16- Sep-1 Bliss -32 v4.0 Page 42 
Gort obO eet) Pa ae Pd Pe eh Pe eS 9 2) 
51 é 81 1D 3$: CMPW 3S s«(P),, X : 1321 

F BLSSU  4$ ; 

6 oe (P) : 
51 02 Ad Bi 00004 4$ CMPW g(P), x + 1322 

03 1F 00028 BLSSU  5$ ; 

02 A2 Bs 002A INC 2(P) : 
52 2 CO 0002D 5$ ADDL2 STEP, P + 1323 
EA 0 F4 000 9 6$ SOBGEQ J, 3$ + 1320 
4 06 DO 000 MOVL. #6, STEP t 1323 

52 0¢ CO 00036 ADDL2 #2. P ; 
01 F4 00039 SOBGEQ FIRST, 1$ : 1320 
50 01 00 0003¢ MOVL = #1 Rp : 1324 
1C BA 0003F POPR #°M<R2,R3,R4> 3 1325 

“05 00041 RSB ; 


; Routine Size: 66 bytes, Routine Base: SORSRO_CODE + O31E 
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vivetite Ve-Sep-1986 15:10:40 Egonrso°seeSsoRcoLunl 65251 9° (22) vl 
: ! rh ! $ } ROUTINE D_NEW(X: WORD): CS_LINK_1 = ! Get space for new double char 
3; 1349 1328 1 !+¢ 
; 1350 1329 1! 
3 } 1 ! 9 } FUNCTIONAL DESCRIPTION: 
3 7 4 1 ¢ 77 Get space for the new double character hag tee by X, and return the 
3 : 2¢ ! ? ! address in which its collating value will be stored. 
3 1356 1335 1 ! FORMAL PARAMETERS: 
3 1357 1 § = 
: 1 28 ! ‘ } Xx a (double) character, passed as a word. 
: 1360 1339 1 ! IMPLICIT INPUTS: 
: 1361 1340 1! 
3; 1 o¢ 1341 1! INIT must have already been called. 
3 1364 1306 : CS is specified as a global register. 
3 1365 1342 1 ! IMPLICIT OUTPUTS: 
; 1298 1345 1! 
: 1367 1346 1! NONE 
: 1368 1347 1! 
3 1369 1368 1 ! ROUTINE VALUE: 
5 13/9 1349 1! 
; 1371 1350 1! The address in which the collating value will be stored, 
3 1376 132! 3 Or zero if no more space is available. 
3; 137 1 26 1! 
3 1374 1353 1 ! SIDE EFFECTS: 
3; 1375 1328 1! 
3 1376 1355 1! NONE : 
3 1377 1356 1! 
: 1378 1357 1 !<- 
3; 1379 1358 2 BEGIN 
: 1380 1359 § LOCAL 
; 1381 1360 P: REF ST_BLOCK; 
; 1336 1361 5 CS_SETUP(); 
3; 138 1306 P = ,CSCCS_CURR_SIZE] + ST_K_SIZE; 
> 1384 136 : IF_.P GTRU-.CSCCS_ SIZE] THEN-RETURN 0; ! No more storage! 
3; 1385 1364 Feb EsacUnt IZE] = .P; 
3 1386 1365 2 CSCCS-DCHAR] = .CSCCS_DCHAR] + 1; 
: 1387 1366 P= .B + gs BASE_) - ST_K_SIZE; 
3; 1388 1367 PCST_CHAR) = .X; 
: 1389 1368 RETURN PCST_COLL]; 
: 1390 1369 1 END; 
50 02 AA 3C 00000 D_NEW: MOVZWL 2(CS), P : 1362 
50 06 CO 00004 ADDL2 #6, P F 
50 6A 10 00 ED 00007 CMPZV #0, #16, (CS), P 3; 1363 
18 1F Q000C BLSSU. _1$ 3 
02 AA 50 B80 0000 OVW P, 2(CS) : 1364 
06 AA 6 001 INCW  6(CS) > 1365 
50 FA AA4O 3 Bat MOVAB -6(CS)CP], P ; 1366 
80 51 8B 1A OVW X, (P)+ 3: 1367 
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ROUTINE D_LOOKUP(X: WORD): CS_LINK_1 = ! Look up a double character 


+4 


FUNCTIONAL DESCRIPTION: 


Get the collating value for a double character. 


i FORMAL PARAMETERS: 


xX a (double) character, passed as a word. 


i IMPLICIT INPUTS: 


INIT must have already been called. 
CS is specified as a global register. 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 


The address of the collating value, 
Or zero if the double character is undefined. 


i SIDE EFFECTS: 


NONE 


BEGIN 
CS_SETUP(); 


FOR_ALL_DCHARS(ST) 
IF TSTCST_CHAR] EQL .X THEN RETURN STCST_COLL]; 
END_ALL_DCHARS (ST); 


RETURN 0; 
END; 


0C BB 00000 D_LOoKUP: 
PUSH 


O-9 0D ws 
o-omn——am 


Se 
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a ee 


CLRL. OR ; 
POPR #*M<R2,R3> : 
RSB é 
; Routine Size: 38 bytes, Routine Base: SORSRO_CODE + 0381 


at TILITIES 15-S00-1984 94:06:06 rot Bliss-32 V4.0-74 


Page 47 
14-Sep-19 4) 


7 
SORT32.SRCJSORCOLUT! .B52;1 (2 


<o- 


> 1434 1411 1 ! To compress the range of collating volues we must determine what values ; 
; 1435 a 1! are currently in use. In practice, we will determine which of the values ; 
; 14 1415 1 ! 1..MAX_USED-1 are in use, and whether any Larger values are in use. ‘ 
3; 14 1414 1 ! Unused values are freed, and larger values are decreased; repeat as needed. ‘ 
: 1438 1415 1! If more that 2*K_CHARS distinct values are in use, it would be almost ; 
3 1439 1018 1 ! impossible to ‘‘double-up"’ sufficent values to fit things in a byte, and : 
3; 1440 1417 1 ! certainly not by this code. ; 
3 1441 1218 1: ; 
; 1008 1419 1 LITERAL : 
3 144 1420 1 MAX_USED = 2 * K_CHARS; ‘ 
+ 1444 1421 1 ; 
; 1445 14 ¢ 1 ROUTINE COMPRESS : 
: br 14 1 : 
3 144 1424 1 S_BV: REF BITVECTORCMAX_USED] ‘ 
+ 1448 1425 1 ): CS_LINK_1 = : 
3 1449 1426 1 !++ : 
; 1450 14er 3 1 ; 
3 1451 1428 1 ! FUNCTIONAL DESCRIPTION: : 
; O26 1093 1} ; 
3; 145 1430 1! Reduce the range of collating values in use by simply accounting for ; 
; 1454 1431 1! unused collating values. ‘ 
; 1455 O36 1! ‘ 
> 1456 1433 1 ! FORMAL PARAMETERS: : 
3 1457 1434 1! ‘ 
; 1458 1435 1! S_BV bitvector (output parameter) ‘ 
3 1459 1436 1! each bit indicates whether the corresponding collating : 
; 1460 1437 1! value is in use. ‘ 
; 1461 1438 1! ‘ 
3 1636 1439 1 ! IMPLICIT INPUTS: : 
; 146 1440 1! ‘ 
3 1464 1441 1! INIT must have already been called. ‘ 
: 1465 | 77 CS is specified as a global register. ‘ 
; 1466 1445 1! : 
3 1467 1444 1 ! IMPLICIT OUTPUTS: : 
: 1468 1445 1! ‘ 
3 1469 1446 1! NONE ‘ 
; 1470 1447 1! : 
3 1471 1448 1 ! ROUTINE VALUE: ° 
3 10% 1449 1! : 
3 147 1450 1! Status code ° 
3 1474 1451 1! : 
3 1475 1436 1 ! SIDE EFFECTS: : 
; 1476 1455 1! : 
3 1477 1454 1! NONE : 
: 1478 1455 1! : 
3 1479 1608 1 fee : 
; 1480 145 BEGIN : 
3 1481 1458 LOCAL ° 
; 1eR6 1459 S_BV_0, ° 
3; 14 1460 USED:  %BLISS16(REF) VECTORCMAX_USED,WORD], : 
> 1484 1461 FREED; ° 
; 1485 1296 ‘ 
3 1486 146 MACRO SET_BV_(VAL) = IF .VAL LSSU MAX_USED THEN S_BVC.VAL] = Lrg ELSE 0 2; : 
3 1487 M 1464 MACRO DEC_BV_(VAL) =_IF_.VAL LSSU MAX_USED THEN VAL = .USEDC.VAL : 
3 1488 1465 ELSE (VAL = .VAL = .FREED; S_BV_O = FALSE) 2; : 
3 1489 1008 ° 
3 1490 146 CS_SETUP(); : 
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>; 1491 1068 : 
3 1438 1098 } Allocate the USED vector in the work area : 
3 1494 U 147) Z1F XBLISS(BLISS16) XTHEN : 
+ 1495 U 1a%8 USED = .CSCCS_CURR SIZE] + ZSIZE(VECTORCMAX_USED,WORD]); : 
; e+ | U 147 If USED GTRU SEES ae THEN RETURN FOULS CMPLX; “ 
3; 149 U 1474 USED = .USED + CSCBASE_] = %SIZE(VECTOREMAX_OSED, WORD); : 
; 1498 1475 2FI : 
; 1499 1e78 : 
; 1500 147 , 
: 1501 1478 : Use as few distinct collating values as possible : 
: 1206 4 } (without converting single to double or double to single). ; 
3 1504 1481 USEDCO) = 0; : 
; 1505 148¢ WHILE TRUE 60 : 
; 1506 148 BEGIN ; 
3; 1507 1484 LOCAL ° 
; 1508 1485 : ‘ 
3 1509 1486 . ; 
; 1319 et ; ; Determine which old collating values are being used : 
: 12i¢ 1489 3 DECR I FROM MAX_USED/2%BPVAL-1 TO 0 DO (S_BV[0J+(.I*ZUPVAL)) = 0; ; 
; 151 1490 Z1F (MAX_USED = MAX_USED/ZBPVAL*XBPVAL) NEQ 0 XTHEN ZERROR('') SFI ; 
; 1514 1491 6 FOR_ALL_COLLS(P) ; 
; 1515 1336 6 SET_BV_(PCCOLL_COJ); ° 
; 1516 149 ° SET_BV_(PCCOLL_C1]); ° 
3; 1517 1494 END_ALL_COCLS(P); ‘ 
; 1518 1495 ; : 
3; 1519 1496 ! Compute the new collating values ‘ 
: 1520 1497 3 : ; 
: 1521 1498 3 FREED = 0; ‘ 
; 1358 1499 3 VAL = 0; : 
3; 152 1500 3 INCR I FROM 1 TO MINU(MAX_USED=-1, .CSCCS_COLL_MAX]) DO . 
: 1524 1501 4 BEGI : 
&s Wee 1288 & IF _ .S_BVC.1] ‘ 
; 1526 1503 4 THEN OSEDL.1] = VAL = .VAL + 1 : 
: 1527 1504 4 ELSE FREED = .FREED + 1; ° 
: 1528 1505 END; ° 
; 136? 1506 . : 
3; 15350 1507 ! Now convert to the new collating values : 
; 1531 1508 : : 
; 1532 1509 3 S_BV_O = TRUE; ° 
: 1533 1510 6 FOR_ALL_COLLS(P) ; 
3 128 1511 6 DEC. y= (PrCOLL C03) ° 
3 1535 1316 6 DeC_BV_ (PLCOLL_C1J); ’ 
3 1536 151 H END ALL COCLS(P); : 
3; 1537 1514 CSCTS_COLL_MAX] = .CSCCS_COLL_MAX] - .FREED; : 
; 1538 1515 : 
3; 1539 1516 ! Continue? : 
3; 1540 1517 : , : 
3 1541 1518 IF .S_BV_O THEN EXITLOOP; : We got everything : 
; 1366 3)? IF .FREED EQL O THEN RETURN COLLS$_CMPLX; : Cant do any more : 
3 1544 1521 END; : 
3 1302 15 § ‘ 
: 7 $6 15 RETURN SS$_NORMAL ; ° 
3 154 1524 END; ° 
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O1FC 8F BB 00000 COMPRESS: ; 

PUSHR #*M<R2,R3,R4,R5,R6,R7,R8> : 3 

5E FCOO CE 9E 00004 MOVAB -1024(SP). SP : : 

ne Bs 0009 CLRW : : : 

58 010¢ cA i 00 MOVAB 268(R10), RB : : 

50 F OD 901 1$: MOVL : ; 

6140 D4 : 4 2$: CLRL ($_8y)C1] : ; 

FA 50 F4 00 18 SOBGEQ I, 2$ : ; 

52 58 DO 0001 MOVL = RB, : : 

54 04 00 0001C MOVL #4. STEP : : 

53 4 DO O001F MOVL #1, FIRST : é 

07 3 5 000 é 3$ LBC FIRST, 4$ : ; 

50 0100 &8F 3¢ 000 MOVZWL #256, RO : 3 

27 11 0002 RB 8$ : 3 

50 06 AA 3C 0002C 4$ MOVZWL 6(CS), RO ; : 

21 11 00030 RB 8$ : F 

0200 8F 6¢ B1 0003¢ 5$ CMPW 3S s«(P), «#512 : : 
07 1€ 0003 BGEQU 6$ : ; 

55 62 3C 00039 MOVZWL (P), : ; 

00 61 55 £2 0003C S$ RS, (S_BV), 6$ : ; 
0200 8F 02 A2 61 00040 6$ CMPW (P), R512 : : 
08 1E 00046 BGEQU 7$ : 3 

55 02 Ae 3C 00048 MOVZWL 2(P), RS : : 

00 61 55 E2 0004C BBSS RS, (S BV), 7$ : 3 
52 54 €0 00050 7s: ADDL2 STEP, P : 3 

dC 50 F4 00053 8S: SOBGEQ I, 5 : : 

54 06 DO 00056 MOVL #6, STEP : ; 

38 08 CO 00059 ADDL2 : ; : 

C 53 F4 0005C SOBGEQ FIRST, 3$ : ; 

56 D4 0005F CLRL. «FREED : : 

53 D4 90061 CLRL ~—-VAL : : 

52 04 AA 3C 00063 MOVZ2WL 4(CS), R2 : : 

O1FF BF 52 Bi 00067 CMPW OR2, #511 : ; 
05 1B 0006C BLEQU 9S : : 

52 OlFF 8F 3C 0006 MOVZWL #511, R2 : ; 

50 04 00073 9S: aT eee : : 

0€ 11 0007 BRB 12$ : 3 

08 61 50 €1 00077 10$: BBC I, (S_BV), 11$ : : 
3 D6 0078 INCL VAL ; : 

6E40 BO 0007D MOVW VAL, USEDCI] : : 

02 11 00081 BRB 12$ : : 

56 D 0085 11$: INCL FREED : : 

EE 50 52 OF 0 085 12$:  AOBLEQ R2, I, 10$ : 3 
57 1 p0 00089 MOVL #1. S.BV_O : : 

be 8 D O08¢ MOVL + : : 

5 4 D 6 8F MOVL #4. STEP : : 

54 1 00 0009 MOVL #1. FIRST : : 

07 4 095 138 LBC RST, 148 ; : 

0 0100 ef ¢ 09 MOVZWL #256, R ; : 

6 11 00090 RB $ : : 

50 06 AA 3¢ O09F 14$ MOVZWL 6(CS), RO : : 

30 11 000A3 BRB 0$ : : 
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R3, #512 
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; } re ] 5 ! ROUTINE COMPRESS_M: CS_LINK_0O = 

3 at oi 

; 1388 1399 i FUNCTIONAL DESCRIPTION: 

; 1555 18 ae Convert the collating sequence to the efficient and succint form that's 

: 1387 1 ¢ : used by the comparison routines. 

: 1558 1534 1 | FORMAL PARAMETERS: 

; 1559 1535 1! 

iit ce eee 

; 136¢ 1338 1 { IMPLICIT INPUTS: 

: 1564 1540 1 INIT must have already been called. 

; 1207 130) ! } CS is specified as a global register. 

: 1567 1848 1 i ampLicit OUTPUTS: 

>; 1568 1544 1! 

1 ein ip 

; 1371 1347 t ROUTINE VALUE: 

; 1378 1387 : ; Status code 

> 1575 1551 1 | SIDE EFFECTS: 

3: 1576 1326 1! 

3; 1577 1553 1! NONE 

: 1578 1554 1! 

3 1579 1555 1 !-- 

S| ee esa 

; 138@ 1358 BV BITVECTORCMAX_USED], 

; 1388 iF +9 ie ! Status value 

> 1586 1368 : CS_SETUP(); 

| 

> 1589 1565 i We are going to mash this collating sequence down to size. 

1891 1869 = 

: 1336 1208 ! First, check that the pad character isn't used in any double characters, 

3 133) 1388 and that it collates to a single byte collating value. 

3 1595 1571 4 FOR_ALL_DCHARS (ST) 

3 1596 1376 4 IF “STEST_CHARO EQL .CSCCS_PAD 

3 1597 1573 4 OR .STCST_CHAR_1) EQL .CSCCS_PAD] THEN RETURN COLLS$_PAD; 

3; 1598 1574 END_ALL pCHARe ist): | 

3; 1599 1575 IF TBBLOCKCCSCCS_PTAB_(.CSCCS_PADJ)3,COLL_C1] NEQ 0 THEN RETURN COLL$_PAD; | 

fear 1399 | 

: 1606 1378 Use fewer collating values | 

; 1604 1380 § = COMPRESS(BVC0J); | 

> 1605 1581 IF_ERROR_( .S ) THEN RETURN .S; | 
| 
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Se 


IF “PEEOLL C03 EQL 0 THEN 33 
IF .PLCOLL_C1J NEQ 0 THEN CSCC 

END_ALL_COLLS(P); 

! A double character <i0,i1> with double collating value <c0,c1> can 

' be deleted if: 

The collating value of <i0,0> is <c0,0>, and 

The collating value of <i1,0> is <c1,0>, and | 

There are no double characters of the form: <i1,z2> 


1 

! 

' 

' 

' 
0; 
! Determine whether to convert single collating values to double, 

Or to convert double to single. 

NEED = .CSCCS_COLL_MAX] - K_CHARS; 

: If we already have double collating values or double characters, | 

' there's not much harm in creating one more to create a free collating 

: value. This is advantageous in the ey age routine; also necessary, 
since 0 will be used to indicate a specicial character. 

if -CSCCS_DCOLL] OR .CSCCS_DCHAR] GTR 0 THEN NEED = .NEED + 1; 


: Recall that, on patey to this block, bv[x] indicates that 
the collating value is 


iF .NEED GTR 0 
THEN 


SOOOOSOS 000000000 000000000 00000000 


WAWNN NANA PIPPINONINPONINIDN 2 2 PO OO OS HOOD 


PARADA ARAAAAAA AAA AAA AAAS AAA AAA AA AAA O OAS 
CONAUEWN — O OONAUEWN OOO NOUS WN (OO ONOULSWIN OOM 


tat at ot oe an 


in use. 


SOaoon 


BEGIN 


ee ee et od ts = et a ed nd nd od od 8d 2 od 
ee ce ee ce ec ee ee me ee me ee ee ee ee ee De me ce ce me Dc ce ce ee ee ee ee ee ee eed ed ed ed 
PEA AAAAAAAAAAAAAAAAASAAAAAAAAAAAAA AA OMNIA 
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DNA MAE WN OOD NAUES WN $0 ODNOAU EWN $9 ODBNAU EWN 3 O ODNOAU EWN OO OONOULS Wir 


| 

' Determine some attributes. | 

! Are there any ignored collating values. 

Are there any double collating values. | 

FOR_ALL_COLLS(P) 

| 

: | 

6 | 

§ | 

7 } 

? 
6 


64 . 

ee Convert single to double 

64 ! Find a sequence of ad} pcent (single) collating values that 
649 ! are not used in a double got hec top value. 

650 !' Convert characters with these collating values to have double 
651 ' collating values. 

$26 : 

65 LOCAL 

638 CHAR: CHAR_BLOCK, 

656 FOR_ALL_COLLS(P) 

65 IF .PCCOLL_C1) NEQ 0 

658 THEN 

659 BEGIN 

660 BV ppcoLL.c0}i = FALSE; 

661 BVC.PLCOLL_C1JJ = FALSE; 

662 END; 
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END_ALL COLL P); 
BV BBLOCK CSCCS_PTAB_(.CSCCS_PADJ)J,COLL_COJ] = FALSE; 
BVO) = FALSE 


ee 


Now we know what single collating values are available 
CHARE CHAR LEN) = 1; 


= ,CSCCS COLL_MAX]+1; 
WHILE, ced GTR 0 DO 
WHILE (Q=.Q-1) GEQ 0 DO IF .BV£.Q] THEN EXITLOOP; 
IF (S=.Q) LEQ 0 HEN RETURN COLL$_CMPLX; 
WHILE .BV[(Q=.Q-1)] DO 0; 
IF .S=.Q-1 GTR 0 
THEN 
BEGIN 
IF _ .S=.Q=-1 GTR K_CHARS-1 THEN Q = .S=K_CHARS; 
NEED = .NEED = (.S$-.Q-1); 
IF .NEED LSS 0 THEN Q = .Q = .NEED; 
FOR_ALL_COLLS(P) 
ZIF XFIELDEXPAND(COLL_ALL,2) NEQ 0 
ZTHEN “PrkOLL Abt GTR .Q AND -PCCOLL_ALL] LEQ .S 
XELSE -PCCOLL_C1] EQL 0 AND 
“FI -PCCOLL_COJ GTR .Q@ AND .PCCOLL_COJ LEQ .S 
Had ty 
PLCOLL_C1) = .PCCOLL_COJ - .Q; 
PCCOLL_CO) = .S; 
END; 
END_ALL _COLLS(P); 
END; 
END; 


S = COMPRESS(BVC0)); 
IF_ERROR_( .S ) THEN RETURN .S; 


i Try converting double to single 


B 

' 

t 

i) 

! We can convert a double collating values <x,y> to a single collating 
! value if either: 

! There are no collating values of the form: <x,0> or <z,x>, or 

: There are no collating values of the form: <y,0> or <y,z>. 
: And (additionally), of double collating values of the f 

' 
0 
E 


orm: <x,2>, 
! <x,y> has the y with the largest (or smallest) value. 
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; 7 ¢ 1 16 1 GLOBAL ROUTINE COLLSRESULT( 

3 1 1817 1 COLL_SEQ: REF VEC TORte). ! The collating sequence 
> 1844 1 18 1 RESLEN: REF VECTOR ! Returned Length 

: 1845 1819 1 d= 

3 re 1820 1 !++ 

> 184 1821 1! 

H Hk: ! ¢ ! FUNCTIONAL DESCRIPTION: 

; 1850 1824 1! Compress the collating sequence for storage and use by the comparison 
; 1851 1825 1! routines. 

; 1326 18 4 73 

; 185 1 ! FORMAL PARAMETERS: 

> 1854 1826 1! 

; 1855 1829 1! COLL_SEQ a two-longword array specifying the length/address 
5 1326 \3 ? : } of storage to use for the collating sequence. 

>; 1858 1836 1! RESLEN a word (output parameter) into which the Length of the 
; 1859 1835 1! compressed collating sequence description is written. 
; 1860 1834 1! Thus, only RESLEN bytes of the storage specified by 
>; 1861 1835 1! COLL_SEQ needs to be saved. 

3 1306 1836 1! 

; 186 1837 1 ! IMPLICIT INPUTS: 

3; 1864 1838 1! 

3 1865 1839 1! INIT must have already been called. 

> 1866 1840 1! 

3; 1867 1841 1 ! IMPLICIT OUTPUTS: 

> 1868 1364 ee 

3; 1869 1843 1! NONE 

; 1870 1844 1! 

: 1871 1845 1 ! ROUTINE VALUE: 

; 1376 1846 1! 

3; 187 1847 1! Status code 

3: 1874 1848 1! 

3; 1875 1849 1 ! SIDE EFFECTS: 

3; 1876 1850 1! 

3; 1877 1851 1! NONE 

3; 1878 1326 2 

3: 1879 1853 1 !-- 

; 1880 1854 2 BEGIN 

: 1881 1855 5 LOCAL 

; 1g 1856 ADJ, 

; 188 1857 § TAB: ZBLISSI6(REF) VECTORCK_CHARS, BYTE], 

3 1884 1858 UPP: iy csc tanP 4 VECTORCK_CHARS, BYTE], 

3; 1885 1338 NEWS_P: REF VECTORL,WORDJ; 

3: 1886 1860 

3; 1887 M 1861 NEWS (X,Y) = 

; 1888 ™ 186¢ BEGIN 

: 1889 M 186 NEWS PCO] = X; NEWS_P = NEWS_PC1); 

3 34 M 1864 ZIF ZNULL(Y) 

3; 1891 M 1865 EN 

3 1998 ~ ' epee Pees = 0; NEWS_P = NEWS_PC1) 

7 1894 M 1868 CHSUCHAR_A( .BBLOCKEY, COLL_COJ, NEWS_P); 

3; 1895 M 1869 CHSWCHAR_A(.BBLOCKLY, COLL_C1J, NEWS_P); 

3; 1896 M 1870 2F I 

3; 1897 4 END %; 

3; 1898 1872 MACRO 


I 
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RES_STAB_TMP = CS_UPPER %; 


>; 1899 1873 ° 
; 1900 1874 ; 
: 1901 L 1875 ZI1F XBLISS(BLISS32) : 
; 1306 1 6 ZTHEN ; 
; 190 187 EXTERNAL ROUTINE : 
; 1904 1 4. SOR SCOLLATE 9! ADDRESSING_MODE(LONG_RELATIVE), ; 
; 1905 187 SORSSCOLLATE_1: ADDRESSING_MODE(LONG_RELATIVE), | ° 
; 1906 1880 tet to a Bf ADDRESSING_MODE(LONG_RELATIVE), . 
; 1907 1881 SORSSCOLLATE_O_A: ADDRESSING_MODE(LONG_RELATIVE), ; 
3 1208 . 1886 - SORSSCOLLATE_1_A: ADDRESSING_MODE(LONG_RELATIVE) : 
; 1910 U 138¢ ' Because of yt structure, Sort-11 has to resolve the : 
3 1911 U 1885 ! addresses on the fly ‘ 
3 1318 U 1886 : : 
3 191 U 1887 BIND ‘ 
3: 1914 U 1888 SORSSCOLLATE_O = 0, ‘ 
; 1915 uU 1889 SORSSCOLLATE_1 = 1, ; 
3; 1916 U 1890 SORSSCOLLATE_2 = 2 : 
3; 1917 1891 RFI; ; 
: 1918 1936 : 
: 1919 189 CS_SETUP(COLL_SEQ); ; 
; 1960 1894 : 
3; 1921 1895 ! Compress the tables : 
; 1356 1896 : : 
3; 192 1897 BEGIN LOCAL STATUS; ; 
3 1924 1898 STATUS = COMPRESS _M(); ; 
> 1925 1899 IF_ERROR_( .STATUS ) THEN RETURN .STATUS; : 
3 1926 1900 2 NB; ; 
3: 1927 1901 2 : 
3; 1928 1306 ' Compute the adjustment : 
3 1929 190 ! This is 1, unless we have: double characters or double collating values ‘ 
; 1930 1904 ! or ignored characters, in which case it is zero. : 
3 1931 1905 § ! If the adjustment is zero, we will use a zero in the primary table to ; 
; 1336 1906 ! indicate that the secondary table must be used. : 
s 19 1907 § : ; 
3 1934 1908 ADJ = 1; : 
3 13Rs +4 2 IF .CSCCS_DCOLLI OR .CSCCS_IGN] OR .CSCCS_DCHAR] GTR 0 THEN ADJ = 0; : 
3; 1937 L 1911 ZIF XSWITCHES (DEBUG) : 
3; 1938 U 13\¢ ZTHEN $ 
3 1939 U 191 COLL_DUMP(-.ADJ); : 
3 1940 1914 2F I ‘ 
3 1941 1915 : 
; 1308 ay : Allocate the TAB and UPP tables in the work area : 
3 1944 U 1918 ZIF RBLISS(BLISS16) XTHEN 3 
3 1945 U 1919 TAB = .CSCCS_CURR_SIZE] + 2 * ZSIZE(VECTORCK_CHARS, BYTE]); 3 
; 1288 U 1920 IF .TAB GTRU.CSCCS_SIZE] THEN RETURN COLLS_CMPLX; 3 
3 194 U 1921 CSCCS_CURR_SIZE] = .TAB; 3 
3: 1948 U 19 § TAB = .TAB + CSCBASE_J] - é * ZSIZECVECTORCK_CHARS, BYTE)); 3 
3 1949 U 19 UPP = .TAB + ZSIZE(VECTORCK_CHARS, BYTE)); 3 
3; 1950 1924 2F I : 
3 1951 1925 : : 
; 1326 19 $ ! First, compute the primary table (into tab) 3 
3; 195 19 : . 
3 1954 1928 CHSFILL(O, K_CHARS, TAB[O)); 3 
3; 1955 1929 BEGIN : 
| 
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; 19 $ 1930 LOCAL P: REF COLL PLOFr 

; 19 1931 P = CSCCS_PTAB] +7(K CHARS~1) * COLL_K_SIZE; 

: 1958 193¢ DECR I FROM K_CHARS-T TO 0 DO | 
3; 195 19 4 BEGIN | 
; 1960 1934 4 IF .PCCOLL_C1J EQL_O THEN TABC.I1] = .PCCOLL_CO] = .ADJ; 

; 1961 1935 4 P = .P = COLL_K_SIZE; 

; 1396 19 : 3 END; 

: 196 19 END; 

3 1964 19 4 4 FOR_ALL_DCHARS(ST) 

; 1965 19 4 TABE.STCST_CHAR_0J) = 0; 

3; 1966 1940 END_ALL_DCHARSTST); 

3: 1967 1941 

3; 1968 1306 

3; 1969 194 ! Copy the upper table 

; 1970 1944 : 

H 137) Mb oF CHSMOVE(K_CHARS, CSCCS_UPPER], UPPCO]); 

; 1978 1947 Don't bother using silly upper tables. 

; ib La be IF CHSEQL(0, UPPLOJ, K_CHARS, UPPCOJ, .UPPCO]) 

3 1977 1951 CSCCS_TB] = .CSCCS_TB] OR TBSNOUPPER; 

; 1978 1328 

3; 1979 195 

; 1980 1954 ! Order the entries in the cs_stab table by the character codes. 

3; 1981 1955 ' This is needed if there are several double characters with the 

; 1386 1956 ! same first character. Note that the entry with the smallest value 
; 198 1957 ! must be the first one accessed by the for_all_dchars macro. : 

3 1984 1958 2 ! This code depends on the for_all_dchars macro accessing the entries 
3; 1985 1959 ! in order from lower addresses to higher addresses. 

3: 1986 1960 ! 

3: 1987 1961 BEGIN 

3; 1988 1306 MACRO 

3; 1989 196 SWAP_(X,Y) = (T = .X; M = .Y; Y=.) &, 

: 1990 M 1964 SWAP (X,Y) = 

3: 1991 M 1965 ; 

: ioe M 1966 LOCAL T; 

: 199 M 1967 SWAP_(XEST_CHAR], YCST_CHARI); 

> 1994 M 1968 ZIF ZFIELDEXPAND(ST_COCL,2) NEQ 0 

3; 1995 M 1969 THEN 

3 1996 M 1970 SWAP_(XCST_COLLJ, YCST_COLL]); 

3 1997 M 1971 L 

: 1998 M 1376 SWAP_(BBLOCKCXCST_COLL oath £9] BOL COCKE VEST cant -COLL_COJ); 
3; 1999 M 197 SWAP_(BBLOCKCXCST_COLLJ,COLL_C1],BBLOCKCYCST_COLLJ,COLL_C1J); 
; 2000 M 1974 FI 

; 2001 1975 END %; 

3 O08 ore LOCAL 

3 200 197 ST_MIN: REF ST BLOCK, 

3: 2004 138 ST_1: REF ST_BLOCK, 

: 2005 197 ST_2:_ REF ST_ 3 

; 2006 1980 ST_1 = CSCCS_STABI; 

3 2007 1981 DETR I FROM [CSCCS_DCHARJ-1 TO 1 DO 

; 2008 19 § 4 BEGIN 

3 2009 19 4 ST_MIN = ST_1CBASE_); 

3; 2010 1984 4 ST-2 = ST_1TBASE_J; 

; 2011 1985 4 DETR J FROM .1-1-T0 0 DO 

: 2012 1986 § BEGIN 
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: 2013 1387 2 S$T.2 = ,ST.2 + ST_K_ SIZE; : 
; 2014 19 8 IF ST_2 ST_CHARJ~LSSU .ST_MINCST_CHARJ THEN ST_MIN = ST_2CBASE_J; ; 
; 2015 1989 4 END; ; 
; 818 1990 4 SWAP_ST_(ST_MIN, ST_1); : 
> 201 1991 4 ST. 17= TST_T + ST_KUSIZE; : 
3 gig 1336 ENB; ‘ 
; 201 199 END; ; 
; 2020 1994 3 
; 2021 1995 ! Now compute the secondary table . 
; 20 ¢ 1339 ! 3 
; 20 199 ! We compute it to cover the cs_upper table. ; 
: 2024 1998 ! It may extend far enough to cover the cs_ptab table, but we should ; 
s 2 +4 always be ahead, unless there are more than k_chars double characters. ‘ 
3; 2027 001 NEWS _P = CSCRES_STAB_TMP]; : 
; 2028 00 IF .ADJ EQL 0 ; 
3 8¢8 00 THEN 3 
3 $0 0 004 BEGIN : 
: 2031 005 ! : 
; 5o3¢ 006 ! This must be an incr loop : 
3 $03 2007 ! 3 
3; 2034 2008 INCR PT IDX FROM 0 TO K_CHARS=-1 DO IF .TABC.PT_IDX] EQL 0 THEN ; 
3; 2035 2009 4 BEGIN 3 
3; 2036 2010 4 LOCAL ; 
3; 2037 2011 4 ENTRY; 3 
; 2038 $oig 4 ENTRY = FALSE; ; 
3; 2039 20135 4 IF 3 
3; 2040 L sate 4 ZIF ZFIELDEXPAND(COLL_ALL,2) NEQ 0 3 
3; 2041 015 4 ZTHEN .CSCCS_PTAB_(.PT_IDX)] NEQ 0 3 
3 50g U 2016 4 ZELSE 3 
3; 204 U sole 4 BEGIN : 
3; 2044 u 2018 4 LOCAL P: REF COLL_BLOCK; $ 
3 2045 U 2019 4 = CSCCS_PTAB_(.PT_1Dx5]; : 
: 2046 U 2020 4 PCCOLL_CO] NEG O OR .PCCOLL_C1] NEQ 0 3 
> 2047 U 2021 4 END : 
3; 2048 Os8 4 XFI ; 
3 2049 023 4 N 3 
3; 2050 024 5 BEGIN 3 
3 $e) $05¢ 5 NEWS (ZX'FFOO'+.PT_IDX, CSCCS_PTAB_(.PT_IDX)]); 3 
; O28 026 5 ENTRY = TRUE; . 
3; 205 027 4 ND; 3 
3; 2054 028 6 FOR_ALL_DCHARS(ST) r 
3; 2055 Og? 6 IF .STCST_CHAR_OJ EQL .PT_IDX<0,8,0> ; 
: 826 6 0 § THEN : 
3; 205 31 BEGIN : 
3; 2058 O35 7 IF NOT .ENTRY 3 
3; 2059 033 7 THE 3 
: 2060 034 7 NEWS _(2X"FFOO'+.PT_IDX, CSCCS_PTAB_(.PT_IDX)]); 3 
3; 2061 035 7 ENTRY = TRUE; 

; 0e¢ O39 7 NEWS_(.STCST_CHAR], STCST_COLLJ); 

3; 206 0 6 : 

3: 2064 038 4 END_ALL_DCHARS(ST); 

: 2065 039 ND; 

: ¥§ 040 NEWS _(ZX'FFFF); 

3; 206 041 NEWS_(2xX'0000"); 

3; 2068 B56 END; 

3; 2069 
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-EXTRN SORSSCOLLATE—2, SORSSCOLLATE_0_A 


BEGIN 
LOCAL 
TMP 
SAVE : VECTORCS BYTE]; 
p = NEWS _P 0] - ¢SCRES’ STAB_TMP); 
RESLENLO] = HF LELDEXPANDTRES STAB,O) + . TMP; 
F .RESLENCO] GTRU .CSCCS SIZE) 
THEN TEE ESS 186 OR CSCRES_STAB_TMP]+.TMP GTRA TABCO]) 
RETURN COLL$_CMPLX; 
SAVELO] = .CSECS-TB); 
SAVEL1] = .CSECS-PADI; 
SAVEL2] = .CSLCS-REVERSE); 
CSCRES_RTN] = 
(IF .ADJ NEQ 0 THEN SORSSCOLLATE_0 
ELIF .CSCCS_DCHAR] EQL 0 THEN SORSSCOLLATE_1 
ELSE SORSSCOLLATE 2); 
“IF 1BL 1sS(BL ISS ) %THEN 
CSCRES_RTN_A) = 
(IF .ABJ NEQ 0 THEN SORSSCOLLATE_0_A 
ELIF .CSCCS_DCHAR] EQL 0 THEN SORSSCOLLATE_1_A 
fi ELSE 0); 
VE(. TMP, S_STAB_TMP], CSCRES_STAB]); 
CHSMOVE (K_CHARS, pero. TSCRES_UPPERIS; 
CHSMOVE(K-CHARS, TABLOJ, CSCRES-PTABJ); 
CSCRES_TB] = .SAVECO); 
CSCRES-PAD] = .SAVEL1); 
CSCRES-REVERSE) = .SAVEC2); 
END; 
RETURN SS$_NORMAL; 
END; 
.EXTRN SORSSCOLLATE_0, SORSSCOLLATE_1 
TEXTRN SORSSCOLLATE~1_A 
OFFC 00000 ENTRY COLLSRESULT, Save R2,R3.R4.R5,R6,R7.R8.R9,- 
SE FDFC 4 0000 MOVAB <-516(SP), SP 
50 04 DO 0000 MOVL cout SEQ; RO 
SA 04 20 0008 MOVL 4(ROJ, CS 
FE 0 0000F BSBW COMPRESS M 
01 cs 0001 BLBS STATUS, TS 
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PSECT SUMMARY 


Name Bytes Attributes 
SOR$RO_CODE 2057 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
» ss « 0 NOVEC, *NOWRT, NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


eocecece Symbols ---<---<-- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBIXPORT.L32;1 590 36 6 252 00:00.1 


COMMAND QUALIFIERS 
PL LSS/CHECK OEE TEL JME TIAL OPTIMIZE) /MOTRACE/L [Se4. 1981 SORCOLUTI/0BJ908.I5s SORCRLITE MSRC$:SORCOLUTI/UPDATE=(ENH$: SORCOLUTI 


Size: 2057 coge + 0 data bytes 
Elapsed Time: 02:44.7 
Lexemes/CPU-Min: 38807 


Memory Used: 244 pages 
Compication Complete 
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